Sub x()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
For Each ws In Worksheets(Array("Sheet1", "Sheet2"))
With ws
Set rng = .UsedRange
For Each cell In rng
Select Case cell.Locked
Case False
cell.Value = ""
End Select
Next cell
End With
Next ws
End Sub
Sub x()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
If MsgBox("Delete All Data?",vbYesNo,"Run Clear?") = vbNo Then Exit Sub
For Each ws In ActiveWindow.SelectedSheets
With ws
Set rng = .UsedRange
For Each cell In rng
Select Case cell.Locked
Case False
cell.Value = ""
End Select
Next cell
End With
Next ws
End Sub