Selection Change problem

[Misca]

I have the following macro in my workbook.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("AV10:AZ10")) Is Nothing Then
    If IsNumeric(Target) Then
        Call ShowRanges
    End If
End If

If Not Intersect(Target, Range("AU1")) Is Nothing And Target.Value <> "" Then
Call GetName
End If

End Sub

The macros that are called from this one should be working just fine but still the macro seems to crash every now and then. And when it crashes and I select Debug & just reset the error and it works again.

I was thinking the problem should be with this one (this is the one that always shows up yellow on the Debug mode) but I can't think of any other reason but having two different Selections to follow.

Does anybody know what might be causing the problem & how to fix it? I seem to be running out of ideas myself.

 

[MickG]

Hi, I found the problem shows when you select multiple cells, so I added an extra first line.(Target .count = 1)
Seems to work.!!

Private [COLOR=navy]Sub[/COLOR] Worksheet_SelectionChange(ByVal Target [COLOR=navy]As[/COLOR] Range)
[COLOR=navy]If[/COLOR] Target.Count = 1 [COLOR=navy]Then[/COLOR]
[COLOR=navy]If[/COLOR] Not Intersect(Target, Range("AV10:AZ10")) [COLOR=navy]Is[/COLOR] Nothing [COLOR=navy]Then[/COLOR]
    [COLOR=navy]If[/COLOR] IsNumeric(Target) [COLOR=navy]Then[/COLOR]
        Call Showranges
    [COLOR=navy]End[/COLOR] If
[COLOR=navy]End[/COLOR] If
[COLOR=navy]If[/COLOR] Not Intersect(Target, Range("AU1")) [COLOR=navy]Is[/COLOR] Nothing And Target.Value <> "" [COLOR=navy]Then[/COLOR]
Call getname
[COLOR=navy]End[/COLOR] If
[COLOR=navy]End[/COLOR] [COLOR=navy]If[/COLOR]
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick

 

[Misca]

Thanks!

You're a lifesaver!