Hi,

I cant get my code right to save my workbook in a specified folder, do
anyone know whats wrong with the code?

FilenameStr = ("http://srv.he.com/ekon/Fakturor/A/2010/ & Rapp/") & _
ActiveSheet.Range("b8").Value & " " & ".pdf"


Dim Rapp As String
Rapp = ActiveSheet.Range("B3")

ActiveWorkbook.SaveAs ("http://srv.he.com/ekon/Fakturor/A/2010/" & _
Rapp & "/" & "Astra" & " " & Rapp & " ")

Activewokbooks.Close

I'l be wery grateful!


--
Best regards
Mia