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.