Clearing unlocked cells

[fshew]

How can I clear unlocked cells and leave the locked ones. I tried a macro
but what I am trying to clear was to large for the macro.

 

[Paul B]

fshew, try this,

Sub Clear_Unlocked()
Dim rngeCell As Range
Application.ScreenUpdating = False

For Each rngeCell In ActiveSheet.UsedRange.Cells
If rngeCell.Locked = False Then rngeCell.ClearContents
Next
Application.ScreenUpdating = True
End Sub
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

 

[fshew]

I get this message when trying. What am I doing wrong? Compile error.
Expected end sub.

' Macro1 Macro
' Macro recorded 3/7/2006 by David Walters
'
' Keyboard Shortcut: Ctrl+n
'
Sub Clear_Unlocked()
Dim rngeCell As Range
Application.ScreenUpdating = False

For Each rngeCell In ActiveSheet.UsedRange.Cells
If rngeCell.Locked = False Then rngeCell.ClearContents
Next
Application.ScreenUpdating = True
End Sub

 

[fshew]

OK I put the code in. How do I then clear the cells?

 

[Paul B]

fshew, looks like you may have part of another macro in with it, but with
what you posted with it commented out looks like it should work, may want to
put this in a new module and try again

Sub Clear_Unlocked()
Dim rngeCell As Range
Application.ScreenUpdating = False

For Each rngeCell In ActiveSheet.UsedRange.Cells
If rngeCell.Locked = False Then rngeCell.ClearContents
Next
Application.ScreenUpdating = True
End Sub

 

[Paul B]

fshew,



To put in this macro, from your workbook right-click the workbook's icon and
pick View Code. This icon is to the left of the "File" menu this will open
the VBA editor, in Project Explorer click on your workbook name, if you
don't see it press CTRL + r to open the Project Explorer, then go to insert,
module, and paste the code in the window that opens on the right hand side,
press Alt and Q to close this window and go back to your workbook and press
alt and F8, this will bring up a box to pick the Macro from, click on the
Macro name, Clear_Unlocked, to run it. If you are using excel 2000 or
newer you may have to change the macro security settings to get the macro to
run. To change the security settings go to tools, macro, security, security
level and set it to medium
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003