Need help with runtime error 6 overflow

[Buns1976]

Hi Everyone,

I am getting a runtime error(runtime error 6 overflow) when selecting ALL cells in a worksheet.
This sheet has a pop up calendar referencing cell J3.
Debug shows the error in the second line of the code below.

Any idea why?

Thank you!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    If (Target.Count = 1) Then
    If Not Intersect(Target, Range("J3")) Is Nothing Then Calendar.Show
    End If
End Sub

 

[Joe4]

Try changing it to:

If (Target.CountLarge = 1) Then

 

[Buns1976]

Joe 4,

That did the trick!

Thank you!

 

[Joe4]

You are welcome.