Macro para borrar libro excel

Partiendo de la base de que las celdas con fórmulas estarán bloqueadas, es posible recorrerlas limpiando solo aquellas 'no bloqueadas'.

Por ejemplo:

Sub limpiaHojas()
    For Each celdita In Range(rgo)
        If Not celdita.Locked Then
            celdita.Select
            Selection = ""
        End If
    Next celdita
End Sub

Aquí ya tenía asignado a la variable 'rgo' el total del rango utilizado en 1 hoja, para que recorra solo el rango en uso.

Con otro bucle se pueden recorrer todas las hojas del libro... le dejo la tarea a Gregori que le invadí su respuesta ;)

Gracias Gregori y Elsa por sus respuestas.

Las hojas tienen todas informacion diferente, de hecho son completamente distintas entre si.

A falta de respuesta de Gregori, aquí va la macro solicitada.

Recorre todas las hojas y limpia las cedas NO bloqueadas. Estoy considerando que las celdas con fórmulas y textos fijos, como títulos, estarán bloqueadas.

Sub limpiaLibro()
'x Elsamatilde
'borra contenidos de celdas NO bloqueadas
'recorre cada hoja del libro
For Each Sh In Sheets
    'se define el rango ocupado en la hoja 'sh'
    rgo = ActiveSheet.UsedRange.Address
    For Each celdita In Range(rgo)
        If Not celdita.Locked Then
            celdita.ClearContents
        End If
    Next celdita
Next Sh
End Sub

Sdos y no olvides valorar esta respuesta (Excelente o buena).