basically you need
Dim bSkip as boolean
Private Sub ToggleButton1_Click()
if bskip then exit sub
If Me.txtCCA.Value = "" Then
MsgBox "You need to select a CCA to open the correct Shop Aid", vbExclamation, "Open File Error"
bskip = true
Me.ToggleButton1 = False
bskip = false
Exit Sub
End If