Compile Error: Ambiguous name detected: Worksheet_Activate

All,
I have a routine I would like to break up in Excel - XP version.

I keep getting the following error: Compile Error: Ambiguous name detected: Worksheet_Activate, when I breat it up.

Here is what I am doing:

Private Sub Worksheet_Activate()
[inv1].Font.ColorIndex = [inp1].Font.ColorIndex
[inv1].Interior.ColorIndex = [inp1].Interior.ColorIndex
[inv2].Font.ColorIndex = [inp2].Font.ColorIndex
[inv2].Interior.ColorIndex = [inp2].Interior.ColorIndex
[inv3].Font.ColorIndex = [inp3].Font.ColorIndex
[inv3].Interior.ColorIndex = [inp3].Interior.ColorIndex
[inv4].Font.ColorIndex = [inp4].Font.ColorIndex
[inv4].Interior.ColorIndex = [inp4].Interior.ColorIndex
[inv5].Font.ColorIndex = [inp5].Font.ColorIndex
[inv5].Interior.ColorIndex = [inp5].Interior.ColorIndex
[inv6].Font.ColorIndex = [inp6].Font.ColorIndex
[inv6].Interior.ColorIndex = [inp6].Interior.ColorIndex

End Sub

Private Sub Worksheet_Activate()
[inv1a].Font.ColorIndex = [inp1a].Font.ColorIndex
[inv1a].Interior.ColorIndex = [inp1a].Interior.ColorIndex
[inv2a].Font.ColorIndex = [inp2a].Font.ColorIndex
[inv2a].Interior.ColorIndex = [inp2a].Interior.ColorIndex
[inv3a].Font.ColorIndex = [inp3a].Font.ColorIndex
[inv3a].Interior.ColorIndex = [inp3a].Interior.ColorIndex
[inv4a].Font.ColorIndex = [inp4a].Font.ColorIndex
[inv4a].Interior.ColorIndex = [inp4a].Interior.ColorIndex
[inv5a].Font.ColorIndex = [inp5a].Font.ColorIndex
[inv5a].Interior.ColorIndex = [inp5a].Interior.ColorIndex
[inv6a].Font.ColorIndex = [inp6a].Font.ColorIndex
[inv6a].Interior.ColorIndex = [inp6a].Interior.ColorIndex
[inv7a].Font.ColorIndex = [inp7a].Font.ColorIndex
[inv7a].Interior.ColorIndex = [inp7a].Interior.ColorIndex

End Sub

I am using Excel in Office XP.

I hope someone can help me with this.

Any help will be appreciated.

Thanks,

You have two worksheet_activate() subs, that's the problem.

Doug,
Somebody helped me solve the problem with the following:

Private Sub Worksheet_Activate()
Call Worksheet_Activate_Part1
Call Worksheet_Activate_Part2
End Sub

Private Sub Worksheet_Activate_Part1()
[inv1].Font.ColorIndex = [inp1].Font.ColorIndex
[inv1].Interior.ColorIndex = [inp1].Interior.ColorIndex
End Sub

Private Sub Worksheet_Activate_Part2()
[inv1a].Font.ColorIndex = [inp1a].Font.ColorIndex
[inv1a].Interior.ColorIndex = [inp1a].Interior.ColorIndex
End Sub

Thanks for responding