Macro to delete all unlocked cells in workbook

[hnswart]

Can anyone help me with a macro to cycle through my entire workbook and clear all the unlocked cells.

Many thanks.

 

[DanteAmor]

How about

Sub ClearCells()
  Dim c As Range, sh As Worksheet
  Application.ScreenUpdating = False
  For Each sh In Sheets
    For Each c In sh.UsedRange
      If Not c.Locked Then c.ClearContents
    Next
  Next
End Sub

 

[hnswart]

How about

Sub ClearCells()
  Dim c As Range, sh As Worksheet
  Application.ScreenUpdating = False
  For Each sh In Sheets
    For Each c In sh.UsedRange
      If Not c.Locked Then c.ClearContents
    Next
  Next
End Sub

Thank you.
I tried this macro but excel freezes when i run it.

 

[Fluff]

How about

Sub hnswart()
   Dim Ws As Worksheet
   
   With Application.FindFormat
      .Clear
      .Locked = False
   End With
   For Each Ws In Worksheets
      Ws.UsedRange.Replace "*", "", , , , , True, False
   Next Ws
   Application.FindFormat.Clear
End Sub

 

[hnswart]

Sub hnswart() Dim Ws As Worksheet With Application.FindFormat .Clear .Locked = False End With For Each Ws In Worksheets Ws.UsedRange.Replace "*", "", , , , , True, False Next Ws Application.FindFormat.Clear End Sub

That worked perfectly. Thank you very much

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[kylthurm]

How about

Sub hnswart()
   Dim Ws As Worksheet
  
   With Application.FindFormat
      .Clear
      .Locked = False
   End With
   For Each Ws In Worksheets
      Ws.UsedRange.Replace "*", "", , , , , True, False
   Next Ws
   Application.FindFormat.Clear
End Sub

Tried to use this one as well as some others, but i keep getting the same response. Please help!!

 

[Michael M]

Remove the first line that is in blue !