Usar formulario informativo

Por ejemplo si queres mostrar el avance en la celda "A1" hace asi:

Sub avance()
Dim porc As Integer

x = 'Aqui declara el numero de la fila actual
y = 'Aqui declara el numero de filas totales

porc = x / y * 100
Range("A1").value = "Obteniendo datos (" & porc & "%), aguarde
unos segundos..."

End Sub

"Luis Medina" escribió en el mensaje
news:

Me alegra saludarlos

Les agradezco una orientación sobre la forma para utilizar un formulario

que

informe el avance de un proceso, por ejemplo: "Procesando Fila ## de

Total:

##" para no mostrarla en Status bar.

Gracias

Luis Antonio