leegmaken onbeschermde cellen

[assessor]

Ik heb een formulier waarvan ik met een knop alle invulvelden wil laten leegmaken.
Behalve deze invulvelden zijn alle cellen beveiligd.
Momenteel doe ik dit als volgt...

Sub Clear()
'
' Clear fields
'
    Sheets("Form").Select
    Range("G4,G6,G8,G10,G12,G14,G16,G18,G24,G26,G28,G32,G34,G36").Select
        Selection.ClearContents
        Range("G4").Select
End Sub

Nu is mijn vraag:
Is het mogelijk om zonder alle cellen appart te moeten benoemen, alle onbeschermde cellen in een werkblad te wissen?

Vast dank...

 

[edmoor]

Dat zal met dit wel lukken:

On Error Resume Next
Sheets("Form").UsedRange.Value = vbNullString
On Error GoTo 0

Dan hoef je ook het blad niet te selecteren.

 

[assessor]

Precies wat ik weten wou, dank voor de snelle respons...