Macro para pedir nombre de archivo 

Con esta macro pueden pedir el nombre de un archivo. Como Visual BASIC no se traduce, esta vez no habrá video en inglés.
Aquí está el código que necesitan, por si lo quieren copiar y pegar (lo tuve que cambiar porque RU-vid no me permite usar mayor que y menor que como vieron en el video):
Sub RutaCheques()
Dim Ruta
Ruta = Application.GetOpenFilename("Archivos de Excel (*.xls*), *.xls*", , "Archivo de cheques")
If Not (Ruta = False) Then
Range("RutaAlArchivo") = Ruta
End If
End Sub