Ayuda con macro

hola, sago !

... esta macro ... quiero descomprimir automaticamente ... archivo ... diario [...]
Sub Descomprimir_ver_soluciones()
Dim strEjecuta As String
Dim strArchivo As String
strArchivo = Format(Date, "ddmmyy")
Nam = "FW"
strEjecuta = Application.ActiveWorkbook.Path & "\UNZIP.EXE -o " & _
Application.ActiveWorkbook.Path & "\FW & strArchivo.ZIP -d " & _
Application.ActiveWorkbook.Path
Shell Environ("comspec") & " /c " & strEjecuta
End Sub
... no corre, no me hace nada.

1° al 'construir' la cadena 'a ejecutar'...
-> estas 'metiendo' la variable del archivo DENTRO de una cadena de texto [delimitada por las dobles comillas]
-> lo que esta 'ocasionando' que el texto 'asignado' a la variable quede 'perdido/omitido'
2° estas 'asignando' un texto a una variable NO 'declarada' que ->tampoco se usa<- [en el codigo] ->Nam = "FW"<-
3° [creo que] si 'construyes paso a paso' la cadena con el comando que necesitas 'ejecutar'... quedaria mas 'claro'
->te expongo una 'propuesta' con [ligeras] 'modificaciones' al final del presente<-
4° lo que no puedo 'asegurar'... es que la utileria que usas [unzip.exe] 'permita' trabajar con directorios 'largos' [?]
->es probable que si 'el Path' contiene 'espacios' o mas de 8 caracteres por directorio... 'necesite algo mas'

saludos,
hector.
prueba con la siguiente macro en un modulo de codigo 'normal' ==Sub Extraer()
Dim EnDirectorio As String: EnDirectorio = ActiveWorkbook.Path
Dim Descomprime As String: Descomprime = EnDirectorio & "\unzip.exe -o "
Dim EsteArchivo As String: EsteArchivo = EnDirectorio & "\FW" & Format(Date, "ddmmyy") & ".zip -d "
Dim Comando As String: Comando = Descomprime & EsteArchivo & EnDirectorio
Shell Environ("comspec") & " /c " & Comando
End Sub

Muchas gracias Héctor Miguel