Trying to create a for.....next loop with checkbox's

[dan2]

Hi all

Here is the loop i have written.

Dim m As CheckBox
For t = 1 To 2
m = t
If usrfrmindsht(m).Value = True Then
imgcld.Visible = True
y = "pap" & t
Workbooks.Open _ Filename:="c:flexasol" & y, Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.PrintOut
ActiveWorkbook.Close
End If
Next t

excuse the spacing.

what i am trying to do is:

I have 33 checkboxes on a userform and i want it to check each box to see if it is checked and then print out the relevant sheets to the boxes that are checked.

It chooses the right sheet but i cant get it to do the checkbox part.

Any ideas please i banging my head against a brick wall over this one.

Thanks

Dan

 

[dan2]

thanks a lot for the edit

after that i just had split the if and into 2 if statemnts and it works great.

Thanks again zacemmel