Thanks Dave, I figured that part out later inthe day. I'm still having
problems with the part about running the macro from another worksheet though.
Any thoughts?

"Dave Peterson" wrote:

Unlocked.clearcontents



KFEagle wrote:

I found some help regarding this as a post to someone elses question.
The solution deletes the formatting in the cells as well. I need to keep
the formatting.
I'm also having trouble running the macro from another worksheet.

The macro is as follows...
this is the macro.....
Sub clear()

Sheets("Payroll - Collections - Pledges").Select
ActiveSheet.Unprotect Password:=Password
Range("C1:AR142").Select <-RIGHT HERE IS WHERE IT HANGS!
Count = 0
On Error Resume Next
For Each RNG In Selection
If RNG.Locked = False Then
Count = Count + 1
If Count = 1 Then Set Unlocked = RNG
If Count < 1 Then Set Unlocked = Union(Unlocked, RNG)
End If
Next RNG
Unlocked.clear <-NEED FORMATTING TO STAY!
ActiveSheet.Protect Password:=Password
End Sub

Thanks!

--

Dave Peterson