VBA to delete contents of unlocked cells

[Evremonde]

Hello All:

Can someone provide VBA code that will delete the contents of all unlocked cells across all tabs?

Thank You...

 

[Rick Rothstein]

Give this macro a try...

Sub ClearUnlockedCells()
  Dim WS As Worksheet
  Application.FindFormat.Locked = False
  For Each WS In Worksheets
    WS.Cells.Replace "*", "", xlWhole, , , , True, False
  Next
  Application.FindFormat.Clear
End Sub