Entrada obligada

[ColdGeorge]

Hola amigos

Solicito su ayuda para mejorar este codigo, de tal manera que la entrada sea obligatoria:

Dim mytext As String
Dim myrange As Range
Do Until Len(mytext) > 0
On Error Resume Next
mytext = InputBox("Hola " & Environ("username") & " escribe lo que gustes en el espacio en blanco.", "¡Hay que Escribir Algo!")
Loop
Set myrange = Application.InputBox(prompt:="Ahora, Introduce un Rango", Title:="¡Hay que Introducir un Rango!", Type:=8)
myrange.Value = mytext

Gracias y saludos de ColdGeorge

 

[ColdGeorge]

Amigos

Si no he sido claro, lo que busco es lo siguiente:

1. Al introducir mytext, se obliga a entrar el texto, esto funciona bien.
2. Busco que tambien se tenga que entrar myrange necesariamente.

Gracias por su ayuda, ColdGeorge