Thanks Jacob for your prompt response. It worked like a charm.
I was just wondering why do I have to use seuch structure "......., H39," & _
"......."? Is it because of that single cell H39 or could I do without &
_ ??

Thanks.

"Jacob Skaria" wrote:

Try

Dim MyNote As String

MyNote = "Are you sure? This action will clear ALL entered data in this
excel file"
If MsgBox(MyNote, vbQuestion + vbYesNo, "Codes will be deleted") < vbYes Then
Exit Sub
Else
Sheets("Sheet1").Range("D3:D9,D11:D19,D21:D24,D26: D35,D37:D39,H39," & _
"I3:I14,I16:I26,I28:I37,I39:I44,N3:N12,N14:N31,N33 :N44").ClearContents
End If

--
Jacob


"Piotr (Peter)" wrote:

Hi,

I have the below code:

Private Sub CommandButton90_Click()
Dim Answer As String
Dim MyNote As String


MyNote = "Are you sure? This action will clear ALL entered data in this
excel file"


Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "All codes will be deleted")

If Answer = vbNo Then
Exit Sub
Else


Sheets("Sheet1").Range("D3:D9" & "D11:D19" & "D21:D24" & "D26:D35" &
"D37:D39" & "H39" & "I3:I14" & "I16:I26" & "I28:I37" & "I39:I44" & "N3:N12" &
"N14:N31" & "N33:N44").ClearContents


End If

End Sub

Whenver I run this macro it stops where the line with ClearContents is
showin Run time error 1004. I would like ot clear specified ranges as well as
a cell h39. I am just not sure what is wrong. I have tried without quotes and
& sign (I have used comma instead) but no avail. I'm new to VBA so any help
appreciated as I could not find solution neither here nor on google.