clear unlocked cells macro help please

  • Thread starter Thread starter CandiC
  • Start date Start date
C

CandiC

I have the following macro attached to a button on my "Price Estimator"
worksheet trying to clear contents in all of the unlocked cells of the
worksheet. Can someone please help me figure out what is wrong with the
following:

Sub ClearForm()
Dim c As Range
For Each c In Sheets("PRICE ESTIMATOR").UsedRange
If c.Locked = False Then
c.ClearContents
End Sub
 
Is it as simple as missing End If and Next lines?

Sub ClearForm()
Dim c As Range
For Each c In Sheets("PRICE ESTIMATOR").UsedRange
If c.Locked = False Then
c.ClearContents
End If
Next c
End Sub

If that was just typo stuff in your query then maybe all cells are locked
(so nothing to do).
 
Sub ClearForm()
Dim c As Range
For Each c In Sheets("PRICE ESTIMATOR").UsedRange
If c.Locked = False Then c.ClearContents
next c
End Sub
 
Sub ClearForm()
Dim c As Range
For Each c In Sheets("PRICE ESTIMATOR").UsedRange
If c.Locked = False Then
c.ClearContents
End If
Next c
End Sub


Gord Dibben MS Excel MVP
 
Back
Top