Función que limpia los campos de un formulario. Excel 2007

Tengo una función V.B. 6.0 funcionando correctamente y en Excel lee los valores de los textBox, pero no entra a borrarlos.

Public Sub Limpia()
Dim miControl As Control
For Each miControl In Me.Controls
If TypeOf miControl Is TextBox Then
miControl.Text = Empty
End If
Next
End Sub

Agradecería cualquier sugerencia, pues he invertido mucho tiempo y he sido incapaz de ver porque no lo hace.

Un saludo y gracias