Clear button

[Patriot2879]

Hi, i have the code below to clear cells but not the formula data but it doesnt seem to be working can you help please. Please see the code below.

Private Sub CommandButton1_Click()
 Dim rConstants As Range

    Set rConstants = Sheets("Work Issue").Range("N2:V50").SpecialCells(xlCellTypeConstants)
    rConstants.ClearContents
End Sub

The error comes up in yellow for the snippet below

Set rConstants = Sheets("Work Issue").Range("N2:V50").SpecialCells(xlCellTypeConstants)

 

[Fluff]

Re: Clear button help please

Try

Private Sub CommandButton1_Click()
    On Error Resume Next
    Sheets("Work Issue").Range("N2:V50").SpecialCells(xlCellTypeConstants).ClearContents
    On Error GoTo 0
End Sub