Thread: Macro for creating checkbox in the Form

You can get some idea from this code:

Code:

Sub Selection_Print()
Dim strSheetActive As String
Dim chkb As Control

    strSheetActive = ThisWorkbook.ActiveSheet.Name
    
    For Each chkb In Me.Controls
        
        'naming convention - find check boxes
        If Left(chkb.Name, 3) = "chk" Then
        
            If chkb.Value = True Then
            'do yer funky stuff              
            End If
            
        End If
        
    Next chkb
        
    ThisWorkbook.Sheets(strSheetActive).Activate
    
End Sub