Codigo para borra celdas no bloqueadas

OK. Eres un fenomeno, como me gustaria saber a mi lo que tu sabes. Espero
que algun dia.

Saludos.

"KL" escribio en el mensaje
news:
Hola Antonio,

como lo
hago para que sea siempre la activa "DATOS".

A ver asi:

Sub NuevoCertificado_AlHacerClic()
Dim Hoja As Worksheet, Celda As Range
Application.ScreenUpdating = False
For Each Hoja In Worksheets(Array("Defectos", "Datos"))
For Each Celda In Hoja.UsedRange
If Not Celda.Locked Then Celda.ClearContents
Next Celda
Hoja.Activate
If Hoja.Name = "Datos" Then
Hoja.Range("A1").Select
Else
Hoja.Range("D3").Select
End If
Next Hoja
Application.ScreenUpdating = True
End Sub

Saludos,
KL