JosephP ... thanks for the reply.

I have tried that, and here is the code. When I do that, my message box fires twice?

Private Sub ToggleButton1_Click()

If Me.txtCCA.Value = "" Then
MsgBox "You need to select a CCA to open the correct Shop Aid", vbExclamation, "Open File Error"
Me.ToggleButton1 = False
Exit Sub
End If