Sub Printselected()
Dim i As Integer
For i = 2 To 5
If Sheets("Printselection").Shapes("Check Box " & i).ControlFormat.Value = 1 Then
Sheets("Sheet" & i).PrintOut Copies:=1
End If
Next i
End Sub
hi there i tried to input the code you have provided but there's an error message "run time error "9" subscript out of range
Hi,Hi guys.
thank you so much for helping me out here.kindly check the sample file.