What is wrong with this code? Compile error etc

[ExcelFailure]

Hi there,

I'm sure this is a really simple error, does anyone know what the problem is with the below code?

Please Login or Register  to view this content.

Many thanks

[:) Sixthsense :)]

Try the below code....

Please Login or Register  to view this content.

[ExcelFailure]

Thanks again, but I don't think that will quite work. If you look closely it actually runs two different macros? One is called CopyActiveCell and the other CopyActiveCell1

[rcm]

why are there 2 subs with the same name?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B1:B900"))>0 Then
Call CopyActiveCell
else
If Intersect(Target, Range("D1:D900"))>0 Then Call CopyActiveCell1
end if
End Sub

[ExcelFailure]

It now says else without if. Although I haven't done your '>0' bit because that bought more errors

[:) Sixthsense :)]

Oops... try this...

Please Login or Register  to view this content.

[ExcelFailure]

Excellent perfect thank you

[Andy Pope]

Please Login or Register  to view this content.

regarding the sub names I would add an underscore to avoid confusion, CopyActiveCell_1

[ExcelFailure]

Thanks sorted