Requesting help for this rookie! Having run-time error after the loop, can't seem to get the syntax or I'm missing something.
Thanks for the help..
Private Sub CommandButton1_Click()
For i = 1 To 110
Sheet2.Cells(i, 1) = i
Next i
Workbooks("PM").Worksheets("LastMnthPM").Range(Range(Cells(1, 1), Cells(i, 1))).Select
End Sub
Thanks for the help..
Private Sub CommandButton1_Click()
For i = 1 To 110
Sheet2.Cells(i, 1) = i
Next i
Workbooks("PM").Worksheets("LastMnthPM").Range(Range(Cells(1, 1), Cells(i, 1))).Select
End Sub