statement invalid outside type block

[kylefoley76]

I'm getting the error in the title of the thread and VBA highlights the time_lastcell2 as the culprit.

Dim first_cell As Integer
Dim time2 As Worksheet
Set time2 = ActiveWorkbook.Sheets("time")


Dim lastday As Date, lastday_time As Date
time_lastcell2 As Integer


With time2
time_lastcell2 = .Range("e65000").End(xlUp).Row
End With


lastday_time = time2.Range("e" & time_lastcell).Address




'Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Application.EnableEvents = False




With ActiveSheet
first_cell = .Range("c65000").End(xlUp).Row


lastday = .Range("b" & first_cell).Address

[more code]

 

[Snakehips]

kylefoley76,


Missing Dim....

Dim time_lastcell2 As Integer

 

[Rick Rothstein]

Missing Dim....

Dim time_lastcell2 As Integer

Also, since it will hold a row number, I would suggest declaring it as a Long instead of as an Integer...

Dim time_lastcell2 As Long

 

[kylefoley76]

Thanks that did it. Also Rick, about the fact that I thought you didn't like one-liners expressing gratitude. I thought I read that on excelfox but I went back to look for it and I couldn't find it.