Hi,
Try this ("under" CLEAR DATA button) code:
Code:Private Sub CommandButton1_Click() Range("O6:S11,O15:S20,O24:S29").ClearContents MsgBox "Data Has Been Deleted" End Sub
Hi,
Try this ("under" CLEAR DATA button) code:
Code:Private Sub CommandButton1_Click() Range("O6:S11,O15:S20,O24:S29").ClearContents MsgBox "Data Has Been Deleted" End Sub
Last edited by Admin; 12-20-2013 at 09:31 PM.
Bookmarks