Olá Pessoal, Bom dia!
Criei uma macro que gera e salva os arquivos num loop, a aba CONTRATOS dentro da planilha GERENCIAL COOLERS PLACEMENT AT POS_OFF PREMISE.xlsm chama o nome do arquivo pra salvar na Range ("B") . Porém os arquivos estão sendo salvos sobrepondo e sempre com o nome "0".
Já mexi de várias formas, mas nada faz ele salvar 1 aquivo por vez com o nome correto, acredito que o erro esteja na variável, alguém consegue me dar um help.
A planilha onde consta o modelo contrato é: Z:\PROMOCIONAL\PROMOCIONAL CONTRATOS/CONTRATO.xlsb
A planilha com a base onde gera os arquivos em massa e renomeia é: Z:\PROMOCIONAL\PROMOCIONAL CONTRATOS/GERENCIAL COOLERS PLACEMENT AT POS_OFF PREMISE.xlsm
________________________
Dim lin As Long
lin = 3
Dim nomeArq As Long
nomeArq = Range("B" & lin)
Do While Not IsEmpty(Range("A" & lin))
Windows("GERENCIAL COOLERS PLACEMENT AT POS_OFF PREMISE.xlsm").Activate
Sheets("CONTRATOS").Select
Range("A" & lin).Select
Selection.Copy
Windows("CONTRATO.xlsb").Activate
Range("I1:K1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "Z:\PROMOCIONAL\PROMOCIONAL CONTRATOS\CONTRATOS"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\PROMOCIONAL\PROMOCIONAL CONTRATOS\CONTRATOS\" & nomeArq, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
lin = lin + 1
Windows("GERENCIAL COOLERS PLACEMENT AT POS_OFF PREMISE.xlsm").Activate
Loop
End Sub
________________________