Error al posicionar el cursor en una celda

[axmug]

Hola.

Tengo hecha una macro muy sencilla cuyo objetivo es mostrar en otra hoja aquellas celdas que están en blanco. Este es el código:

Public Sub blancos()

Dim f As Integer

Dim f_max, c_max As Long

ActiveWorkbook.Worksheets("Hoja1").Copy after:=Worksheets("Hoja2")

'Para saber cuantas filas y columnas hay como maximo rellenas

f_max = ActiveSheet.Cells.SpecialCells(xlLastCell).Row

c_max = ActiveSheet.Cells.SpecialCells(xlLastCell).Column

'Para situarse en la celda

Range("AE").Select

'Cells(4, 10).Select

'Rows(4, 10).Select

For f = 4 To f_max

If ActiveCell.Value <> "" Then ActiveCell.EntireRow.Delete

If ActiveCell.Value = "" Then ActiveCell.Offset(1, 0).Select

Next f

ActiveWorkbook.Worksheets(3).Name = "Sin correo"

End Sub

Al ejecutar el código me sale el siguiente error:

Error de compilación:

No se ha definido Sub o Function

Al ejecutarlo paso a paso el error me salta en otro procedimiento que tengo con el código:

Public Sub Workbook_Open()

Call blancos

End Sub

El código del otro procedimiento lo tengo en la hoja1.

Si ejecuto solo el procedimiento de la hoja1 me sale el error:

Se ha producido el error 1004 en tiempo de ejecución:

Error definido por la aplicación o el objeto

Este error se produce en la línea

Range("AE").Select

¿Como puedo solucionar estos errores?

Gracias.

[tese1969]

Buenas,

El Range("AE") no existe, pues solo le estás indicando la columna....te faltaría algún tipo de número para indicarle la fila, por ejemplo Range("AE1")....

Un saludo,

Tese

[axmug]

Gracias por la respuesta. He cambiado el Range("AE") por Range("AE4") y me sigue dando el mismo error.

[Antoni]

____________________________________________________________________________

Complementando lo que dice tese1969, al que aprovecho para saludarlo, te comento que la macro blancos debes invocarla así:

Call Hoja1.blancos[/CODE]

[axmug]

Gracias por la respuesta. Lo he probado y me da el error: se requiere un objeto

[Antoni]

Sube el archivo.