Clear all entries

[reddcannon]

Just curious, I have this button to click to clear all entries on the form. It clears from cell a4 to q3000. it sure is slow. is there a faster method for a button? Below is what I am using

Private Sub CommandButton1_Click()
Range("a4:q3000").Select
Range("a4").Activate
For Each cell In Selection
If cell.Locked = False Then
cell.ClearContents
End If
Next
End Sub

 

[mikerickson]

Private Sub CommandButton1_Click()
    On Error Resume Next
        Range("a4:q3000").Value = vbNullString
    On Error Goto 0 
End Sub

 

[reddcannon]

Thank you sir