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
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