Private Sub CheckBox2_Change()
wykonaj "CheckBox2"
End Sub

Sub wykonaj(nazwa As String)
   If OLEObjects(nazwa).Object.Value = True Then '--> sprawdzenie czy checkbox jest true
      MsgBox "Check2 = true"
End If
If OLEObjects(Left(nazwa, Len(nazwa) - 1) & "1").Object.Value = False Then MsgBox "Check1 = false"
End Sub

Sub test1()
 MsgBox "wywołano Test1"
End Sub

Sub test2()
 MsgBox "wywołano Test2"
End Sub


Sub testTestow(Nr) 'w zależności od nr uruchamia odpowiednią funkcję
 If Nr >= 1 And Nr <= 2 Then
  Application.Run "test" & Nr
 End If
End Sub


Sub TestRun()  'to jest testowa głowna
 testTestow 1
 testTestow 2
End Sub

Private Sub CheckBox2_Change()
wykonaj "CheckBox2"
End Sub

Sub wykonaj(nazwa As String)
   If Controls(nazwa) = True Then '--> sprawdzenie czy checkbox jest true
      MsgBox "Check2 = true"
End If
If Controls(Left(nazwa, Len(nazwa) - 1) & "1") = False Then MsgBox "Check1 = false"
End Sub

Private Sub CheckBox2_Change()
If czy_robic = 0 Then
    If Range("A2") <> "" Then
        If CheckBox2 = True Then

           .......
         
        Else:
            .....
        End If
    End If
End If
End Sub

private sub CheckBox2_Cange()

wykonaj "CheckBox2"
end sub


public sub wykonaj (nazwa as string)
   ...
   if nazwa = true then --> sprawdzenie czy checkbox jest true
      .....
   end if
   nazwa & "1" = false --> zmiana wartości nazwa i ustawienie w zmienionym checkbox'ie wartości

end sub

Controls("Checkbox" & 2) = True

sub test (nazwa as string)
   if (nazwa & "1") then --> nazwa jest tu użyta jako wartość zmiennej nazwa z dodaniem na końcu cyfry 1
      .....
   end if
 ....
nazwa --> nazwa jest tu użyta jako wywołanie procedury o nazwie która jest wartością zmiennej

end sub