Este fórum está sendo desativado

[ScaR]

Boa noite gurizada!

Estou com um problema, tentando a 2 dias fazer minha macro salvar um arquivo com o mesmo nome de uma célula, porém ainda sem sucesso, até agora tudo o que consegui foi fazer isso, mas não resolveu o meu problema(Não entendo nada de VBA).

Código: Selecionar todos

Sub SALVAR_ATÉ_16_MAIS_DE_48_HORAS()
'
' Salvar_16_Mais_de_48 Macro
'
Dim Lista As String
    Lista = Worksheets(1).Range("V3")
    Sheets("LISTA").Select
    Range("A1:AZ35").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AZ$35"
    ActiveWindow.SmallScroll Down:=6
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Environ("USERPROFILE") & "\Desktop\" & Lista & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    ActiveSheet.PageSetup.PrintArea = ""
    Sheets("BASE").Select
End Sub

Eu preciso que ela faça o seguinte, salve o arquivo em extensão pdf, já renomeado com o valor da célula V3, se alguém conseguir me ajudar eu agradeço!!

[babdallas]

Veja arquivo anexo. Testei aqui e deu certo.