VBA Run-time Error '6': Overflow

[bluegold]

Hi guys,

This one has me stumped as I have run this macro for years and only now it starts coming up the error Run-time Error '6': Overflow

Here is my piece of code and where the error occurs - See bold yellow.

Sheets("f.Win").Range("A2:AS" & Sheets("f.Win").Range("A" & Rows.Count).End(xlUp).Row).Delete
Lastrowa = Sheets("f.Win").Cells(Rows.Count, "A").End(xlUp).Row + 1
With Sheets("Football")
Lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
For I = 2 To Lastrow
If .Cells(I, 46).Value = "True" Then
.Cells(I, 1).Resize(, 45).Copy Destination:=Sheets("f.Win").Rows(Lastrowa)
Lastrowa = Lastrowa + 1
End If
Next
End With

 

[Joe4]

Have you declared the "Lastrow" variable?
If so, which type did you choose? If you chose something like "Integer", and your last row is over row 32767, that would cause an error, and you need to use something like "Long" instead.

Also, are you sure that you have a sheet named "Football", and it is not hidden?

 

[bluegold]

yep that did it, just read integer only supports 32758 rows or something and I just happened to pass that the other day lol
Thanks for your help

 

[Joe4]

You are welcome.