Humilde Colaboración
Mi Estimado el porque de la explicación de la Función Extraer, te la debuelbo pero en código Visual Basic para Aplicación en office no pretendo insultar tus valiosos Conocimientos
Sub Extrae()
Nombre = ActiveWorkbook.Name
espacio = Mid(Nombre, InStr(Nombre, " ") + 1, InStr(Nombre, ".x") - InStr(Nombre, " ") - 1)
Range("A1").Value = espacio
End Sub
Por si Alguien te pide esa ayuda, Gracias
Sub Extrae()
Nombre = ActiveWorkbook.Name
espacio = Mid(Nombre, InStr(Nombre, " ") + 1, InStr(Nombre, ".x") - InStr(Nombre, " ") - 1)
Range("A1").Value = espacio
End Sub
Por si Alguien te pide esa ayuda, Gracias
