Cleaning up a Recorded Macro

[AnalystGuy]

If CheckBox1.Value = True Then


With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
.NumberFormat = ChrW(61693)
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleBullet
.NumberPosition = InchesToPoints(0.25)
.Alignment = wdListLevelAlignLeft
.TextPosition = InchesToPoints(0.5)
.TabPosition = wdUndefined
.ResetOnHigher = 0
.StartAt = 1
With .Font
.Name = "Wingdings"
End With
.LinkedStyle = ""
End With
ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
ActiveDocument.SelectContentControlsByTitle("CB1").Item(1).Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
False, ApplyTo:=wdListApplyToSelection, DefaultListBehavior:= _
wdWord10ListBehavior

Else
End If



So I recorded a macro to change the bullet point type from a box to a box with an x in it if the corresponding checkbox was checked. I am very new to VBA so I would like to have some help cleaning up what I can actually delete from the recorded macro and why.


Thank you!