Bom dia, George.

Veja se lhe atende:

Public Sub Salvar()

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:" & [K2].Value, OpenAfterPublish:=True

End Sub

Atenciosamente,

Bom dia!!

Talvez uma outra e bem próxima forma, seria..

Sub TenteAdaptar()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="G:Documents and SettingsSeuUserDesktop" & Range("K2").Text & ".pdf"
MsgBox "Arquivo foi salvo com sucesso"
End Sub

Não testado

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "G:Documents and SettingsSeuUserDesktop" & Range("K2").Value, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
MsgBox "Arquivo foi salvo com sucesso"

Att

Olá, colegas.
O exemplo funcional perfeitamente para transformar em pdf a "Plan1". Mas se eu quiser que só a "Plan2" seja transformada em pdf, como eu faço?

Tentei usar o comando "Sheets("Plan2").Select" e depois os códigos fornecidos, mas não funcionou.

Grato.

Bom dia!!

Tente

Sub TenteAdaptar()
Sheets("Plan2").ExportAsFixedFormat Type:=xlTypePDF, Filename:="G:Documents and SettingsSeuUserDesktop" & Range("K2").Text & ".pdf"
MsgBox "Arquivo foi salvo com sucesso"
End Sub

Estranho, pois nos codigos, disponibilizados pelo Alexandre, é "exportado" a planilha ativa (activesheet) menos nesse ultimo.
Então se estiver na planilha ou seleciona-la via codigo; devera "exportar" sem problema;
salvo se houver em K2 da plan2 um nome com caracter(s) não aceitos pelo sistema operacional, ou mesmo igual ao da plan anterior.