Sub Makro1()

Ich bin beim verzweifeln - kann mir jemand bitte bitte helfen und mir sagen warum der code nicht funktioniert?

'pdf erstellen und speichern
Dim strName As String
Dim ws As Worksheet

strName = Environ("userprofile") & "F:\Dateien\"

For Each ws In Worksheets

.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strName & ws.Name & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Next ws
End Sub