Mensaje en Macro

Buenos Días grupo,

Tengo la siguiente macro:

Sub Insertar()
CLAVE = "1"
Application.ScreenUpdating = False
With ActiveSheet
.Unprotect CLAVE
Selection.Copy
Selection.Insert Shift:=xlDown
ActiveWindow.LargeScroll ToRight:=0
.Protect CLAVE
End With
Application.ScreenUpdating = True
End Sub


Necesito que el usuario para poder ejecutar la macro tenga seleccionado la
"Fila Completa o Filas" si no es así que le envie un mensaje diciendo q la
debe seleccionar completa.

Saludos, y espero que me ayan entedido


Angelo Vernaza

Hola Angelo,

Podrias evitar dar la lata con tu mensaje si corriges la seleccion
directamente en el codigo:

Sub Insertar()
CLAVE = "1"
Application.ScreenUpdating = False
With ActiveSheet
.Unprotect CLAVE
With Selection.EntireRow
.Copy
.Insert Shift:=xlDown
End With
.Protect CLAVE
End With
Application.ScreenUpdating = True
End Sub

Saludos,
KL


"AnGeLo" wrote in message
news:
> Buenos Días grupo,
>
> Tengo la siguiente macro:
>
> Sub Insertar()
> CLAVE = "1"
> Application.ScreenUpdating = False
> With ActiveSheet
> .Unprotect CLAVE
> Selection.Copy
> Selection.Insert Shift:=xlDown
> ActiveWindow.LargeScroll ToRight:=0
> .Protect CLAVE
> End With
> Application.ScreenUpdating = True
> End Sub
>
>
> Necesito que el usuario para poder ejecutar la macro tenga seleccionado

> "Fila Completa o Filas" si no es así que le envie un mensaje diciendo q

> debe seleccionar completa.
>
> Saludos, y espero que me ayan entedido
>
>
> Angelo Vernaza
>
>