Acompletar un macro.

[li-y11]

Buenas Tardes :

Tengo un macro pero no se como ponerle para que en lugar de que pase la información especifica de una hoja seleccione por medio de un rango el nombre de la hoja, ya le movi al derecho y revez y nada

U = Sheets("Pasar").Cells(Rows.Count, "C").End(xlUp).Row

ff = 7

While Sheets("Pasar").Cells(ff, "AA") <> "" And ff < U

ff = ff + 10

Wend

With Sheets.Range("A5") (ESTA ES LA PARTE) POR EJEMPLO EN A5 QUIERO PONERLE EL NOMBRE DE LA HOJA QUE QUIERO LA INFORMACION.

Gracias.