borrar Celdas Desbloqueadas de Varias Hojas

hola, KM !

... libro con 5 hojas, como modifico este macro para que me borra celda Desbloqueadas Varias hoja del mismo libro.
Sub borrarDesbloqueadas()
ActiveSheet.Unprotect Password:="pp"
Dim c As Range
On Error Resume Next
For Each c In Range("A1:a20")
If c.Locked = False Then
c.ClearContents
End If
Next
ActiveSheet.Protect Password:="pp"
End Sub

no es necesario que des/re/protejas una hoja para borrar las celdas que no estan 'protegidas/bloqueadas/...' ;)
prueba con una macro +/- como la siguiente:
Sub Borra_Desbloqueadas()
Application.ScreenUpdating = False
Dim Hoja As Worksheet, Celda As Range
For Each Hoja In Worksheets(Array("Hoja1", "Hoja2", "Hoja3", "Hoja4", "Hoja5"))
For Each Celda In Hoja.Range("a1:a20")
If Not Celda.Locked Then Celda.ClearContents
Next
Next
End Sub

saludos,
hector.