Sub Macro1() Dim i As Integer i = ActiveSheet.UsedRange.Rows.Count MsgBox i End Sub Sub macro2() Dim i As Integer i = Range("C65536").End(xlUp).Row MsgBox i End Sub
Select allOpen in new window
Open in new window