Clear Cells

[DavidC]

I use the following code to clear the contents of cells that are not locked on a sheet so it can be reused easily:

Dim cl As Range
For Each cl In ActiveSheet.UsedRange
If Not cl.Locked Then cl.ClearContents
Next cl

However, it seems to take longer to run that it should. My data field is only about 25 columns by 125 rows. Is there a way to get it to go faster? Thanks.

 

[DavidC]

Worked like a charm! Thanks!