Subscript out of range

[wcd45]

I keep getting an error message saying subscript out of range with this code.



Sub Check_First()
Dim Z As Integer


Z = 1


Do While Z <= Range("o1").Value
Range("r1").Value = Z
Range("AH2").Select
Range("A2:AJ2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=34, Criteria1:=Range("r1").Value
Sheets("EQ1 No Tickets1").PrintOut
Z = Z + 1
Loop
MsgBox "The Do While loop made " & Z & " loop(s)."


End Sub

All help is very much appreciated by this novice.

 

[Fazza]

Have you tried single stepping through the code? Refer Debugging VBA

The code worked OK for me. Where is the code & how/when do you execute it? Can you provide an image of your worksheet?

 

[wcd45]

I should have clarified. I'm getting the error message when I try to print. Late last night I came up with a solution. Since I am trying to make additions to someone else's work, I decided to take out Sheets("EQ1 No Tickets1").PrintOut and instead just call a macro that was already being used to print. This fixed my issue. But thank you for trying to help.