Enrique Bernal respondió:
Sub Crear() Dim Hojak As String Dim Dirk As String Hojak = InputBox("Ingrese el Nombre de la hoja que desea copiar") Dirk = InputBox("Ingrese la dirección y el nombre del nuevo archivo que desea guardar:Ejm: C:\"Nombre del Archivo.xls"")...