deze macro werkt prima maar ik wil dat er nog een cel vast staat range is nu b2 en wil er a1 bij maken maar dan werkt het niet meer wie kan de code aanpassen
HTML:
Sub pdf()
If Len(Dir("D:\Poortwachter", vbDirectory)) = 0 Then
MkDir "D:\Poortwachter"
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Poortwachter\Klacht " & Range("b2").Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
MsgBox "Poortwachter " & Range("b2").Value & " opgeslagen in D:\Poortwachter", vbInformation
End Sub