VBA code Overflow error

[Hiport]

Hi,

Why do i get run time error on this line? i have a variable as long so i should not be getting overflow

Dim ka As Long

With Worksheets("Sheet1")
ka = Intersect(.UsedRange, .Range("A5:P5000"))
End With

 

[JoeMo]

Cells formatted as date or time that contain negative values give rise to copious numbers of ######### across the cell and may be the origin of the overflow error since they are too large to display.

 

[Hiport]

BB

Cells formatted as date or time that contain negative values give rise to copious numbers of ######### across the cell and may be the origin of the overflow error since they are too large to display.

thats what happened, i have a number 86754786, but the cell is showing ##########, hence the overflow, but once I converted the cell to general format then there was no overflow