Juan Carlos González Chavarría respondió:
Aquí te pongo una rutina para que la tomes de ejemplo: Dim SigFila As Long ' Aségurese de que la Hoja1 está activa. O la hoja que tu quieres Sheets("Sheet1").Activate ' Asegúrese de que se ha introducido un nombre If TextName.Text = "" Then MsgBox...