Setting tab order, adding ability to stop/start code and refine functionality

[MSXL]

Okay, this is the solution.

Public Sub ClipClear()Dim Answer As Integer
Answer = MsgBox("Are you sure you wish to clear the data?", vbQuestion + vbYesNo + vbDefaultButton2, "Automatic Clipboard")
If Answer = vbYes Then
    Call ClipOff
'    MsgBox "Cleared"
    Sheet10.Range("C7,C8,C9,C10,C11,C13,C16,C19,E13,G13,I13,E16,G16,I16").ClearContents
    Sheet10.Range("E7:I7").ClearContents
    Sheet10.Range("E10:I10").ClearContents
    Sheet10.Range("E19:I19").ClearContents
    Sheet10.Range("C22:I22").ClearContents
    Sheet10.Range("$C$4") = Null
Else
    'Do nothing
End If
End Sub

I'd still like the message to show as green or red as described previously.