Hi

I would like the below macro to repeat for the next cell down, F3 then F4 until it reaches an empty cell. I am new to excel and I think a loop is what I need but I can't get it work. help will be much appreciated, thanks


Sub PrintStuff()
Dim vShts As Variant

cell = Sheets(1).Range("F2")


If Not IsNumeric(vShts) Then
Exit Sub
Else
Select Case cell
Case 1
Sheets("Cover").PrintPreview
Sheets("SSI").PrintPreview
Case 2
Sheets("Cover").PrintPreview
Sheets("SSI2").PrintPreview
Case 3
Sheets("Sheet1").PrinPreview
Sheets("Sheet2").PrinPreview
End Select
End If
End Sub