Hej hej

Det blir lite enklare att hjälpa dig om du visar din befintliga kod. Men kan ge dig lite tips på vägen.

'Denna rad skapar en variabel som heter wb. Till denna kan olika arbetsböcker tillägnas, dock bara en åt gången.
Dim wb as workbook

Denna rad berättar vilken arbetsbok som wb ska vara och öppnar filen. (filen måste vara öppen för att excel ska kunna hämta saker från den)
Lägg in din lokala fil här, exempelvis c:\loffe\minfil.xlsx
Set wb = workbooks.open("filnamn inklusive sökväg")

Tillägnar wb till arbetsboken som koden ligger i, undantaget om du har ditt makro i personal.xlsb, isåfall pekar thisworkbook på den arbesbok som du kör makrot från.
Set wb = thisworkbook

Tillägnar wb till den aktiva arbetsboken:
set wb = activeworkbook

Öppnar en liten prompt där du kan skriva ett filnamn
Dim SaveFileName As String
SaveFileName = InputBox("Write your File name")

'Skriver ut blad1 som pdf med filnamnet som du fyllt i prompten
wb.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=SaveFileName

'Sparar excelfilen tillägnad som wb
wb.SaveAs Filename:=SaveFileName
'Stänger excelfilen
wb.Close savechanges:=False

Hoppas detta hjälper dig lite.
Mvh
Christian

Hej igen.

Nedan hittar du en metod för att skriva pdf på hela arbetsboken, samt på det aktiva bladet, välj den som passar dig bäst.
Från din gamla kod behöver du bara spara nedan rad, den ska ligga först i din kod.:
ActiveCell.FormulaR1C1 = _
"=RC[-1]*'[Namnetpåexcelatthämtavärde.xlsx]Blad1'!R4C12"

'Här skriver du vad din arbetsbok ska heta ("Revision1") och i vilken folder den ska sparas i. ("c:\revision\")
Dim myfilename as string: myfilename = "Revision1"
Dim mypath as string: mypath = "c:\revision\"
Dim str as string: str = mypath & myfilename

*skriver hela din arbetsbok som pdf
thisworkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=str

'Skriver ut det aktiva bladet som pdf
activesheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=str

Sparar din arbetsbok med namnet revision1
thisworkbook.saveas filename:=str

Mvh
Christian