Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Sheets("Current_market").Select
Dim I As Byte
For I = 1 To 188
If Me.Controls("CheckBox" & I).Value = True Then
Market = Me.Controls("CheckBox" & I).Caption
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Next I
Sheets("Home").Select
Unload Me
End Sub