Langsom makro

hej alle
.kan denne skrives på en anden måde?
.Man skal kunne bruge copy/paste.
Når man gør det flytter man også rundt på
betinget formateringer...
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
  CheckBox2.Value = False
  CheckBox3.Value = False
  CheckBox4.Value = False
  CheckBox5.Value = False
  CheckBox6.Value = False
  CheckBox7.Value = False
  CheckBox8.Value = False
  CheckBox9.Value = False
  CheckBox10.Value = False
  CheckBox11.Value = False
  CheckBox12.Value = False
  CheckBox13.Value = False
  CheckBox14.Value = False
  CheckBox15.Value = False
  CheckBox16.Value = False
  CheckBox17.Value = False
  CheckBox18.Value = False
  CheckBox19.Value = False
  CheckBox20.Value = False
  CheckBox21.Value = False
  CheckBox22.Value = False
  CheckBox23.Value = False
  CheckBox33.Value = False
  CheckBox34.Value = False
  CheckBox35.Value = False
  CheckBox36.Value = False
  CheckBox37.Value = False
  CheckBox38.Value = False
  CheckBox39.Value = False
  CheckBox40.Value = False
  CheckBox41.Value = False
  CheckBox42.Value = False
  CheckBox43.Value = False
  CheckBox44.Value = False
  End If
Password = "xxx"
ActiveSheet.Unprotect Password
        With Range("C4:O26")
      .FormatConditions.Delete
      End With
      With Range("C4")
      .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=$AI$4=sand"
      .FormatConditions(1).Interior.ColorIndex = 33
        End With
With Range("D4:O4")
      .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=$AI$4=sand"
      .FormatConditions(1).Interior.ColorIndex = 15
      Password = "xxx"
ActiveSheet.Protect Password
        End With
  End Sub
mvh. Lars