Bom dia!!

Tente

 
Private Sub Selectall_Click()
Dim ctrl As Control

  For Each ctrl In Me.Controls
    If TypeOf ctrl Is msforms.CheckBox Then
      ctrl.Value = Me.Selectall.Value
    End If
  Next
End Sub

Att

Boa noite, alexandrevba.

A parte de selecionar tudo e tirar a seleção de tudo esta bacana, minha duvida agora é a seguinte.
Meus CheckBox de 1 a 5 estão marcados, mas vou la e tiro a seleção de um deles, logo teria que desmarcar o Selectall e deixar os demais, tem como fazer isso ?

Boa noite, alexandrevba,

Se possivel gostaria de sua ajudar para adaptar esse código em um UserForm.

Sub CheckBox1_Click()
Dim CB As CheckBox
    For Each CB In ActiveSheet.CheckBoxes
        If CB.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name Then
        CB.Value = ActiveSheet.CheckBoxes("Check Box 1").Value
        End If
    Next CB
End Sub

Sub Mixed_State()
Dim CB As CheckBox
    For Each CB In ActiveSheet.CheckBoxes
        If CB.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name And CB.Value <> ActiveSheet.CheckBoxes("Check Box 1").Value And ActiveSheet.CheckBoxes("Check Box 1").Value <> 2 Then
        ActiveSheet.CheckBoxes("Check Box 1").Value = 2
        Exit For
        Else
        ActiveSheet.CheckBoxes("Check Box 1").Value = CB.Value
        End If
    Next CB
End Sub