Sub PDF_2_лист()
Application.ScreenUpdating = False
Worksheets("стр.3").Select
On Error GoTo metka
Dim Fname As String
        Fname = "C:\Users\LESINVEST-M\Desktop\" & "Уведомление 2 " & Worksheets("Данные").Range("B2").Value
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
metka:
If Err <> 0 Then MsgBox "Выберите работника!"
Worksheets("Список_мигрантов").Select
End Sub

Sub PDF_Галеника()
Application.ScreenUpdating = False
Worksheets("Галеника").Select
Dim Fname As String
Fname = "C:\Users\LESINVEST-M\Desktop\Галеника\Заявки\" & Worksheets("Галеника").Range("B8").Value
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Worksheets("Данные").Select
End Sub

Sub folder()
On Error Resume Next
For Each oCell In Range([A1], [A65536].End(xlUp))
    If Not IsEmpty(oCell) Then MkDir "C:\Users\Роман\Desktop\шаблон\" & oCell
    ActiveWorkbook.SaveCopyAs filename:=ThisWorkbook.Path & "\" & [A1].Value & ".xls"
Next
End Sub