M
Mia
Hi,
I'm trying to save a sheet with a namn from the sheet as a pdf.
Do anyone know what I should change in my code below to make it work?
Sub Saveas()
' Saveas Makro
'
'
Dim Namn As Integer
Sheets("Blad2").Select
Namn = Range("A1").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"M:\mc\Fevis\Namn.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False,
OpenAfterPublish:= _
False
Sheets("Blad1").Select
End Sub
BR
Mia
I'm trying to save a sheet with a namn from the sheet as a pdf.
Do anyone know what I should change in my code below to make it work?
Sub Saveas()
' Saveas Makro
'
'
Dim Namn As Integer
Sheets("Blad2").Select
Namn = Range("A1").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"M:\mc\Fevis\Namn.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False,
OpenAfterPublish:= _
False
Sheets("Blad1").Select
End Sub
BR
Mia