Boa noite!

Tenho esse código o qual a parte que salva em pdf e a do nome do arquivo estão corretas, funcionando, pela parte do código do pdf ele salva o arquivo junto na pasta em que a planilha está, estou querendo que antes de salvar em pdf, seja criado o diretório com o nome do Range("Y8").Value, e dentro dele fique o arquivo em pdf, essa nova pasta deve ser criada dentro da pasta que a planilha está, como já acontece com o pdf.

Dim MyPath As String
MyPath = "" & Range("Y8").Value & ""
If (Dir(MyPath & "/" & Pasta, vbDirectory) = "") Then
MsgBox "Diretório - " & MyPath & " - Não encontrado"
MkDir (MyPath)
End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "" & Range("Y8").Value & " - DK-" & Range("AA5").Value & "-" & Range("W42").Value & "-" & Format(Date, "yyyy-mm-dd") & "-H" & Format(Time(), "hhmm") & "-PDF" & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
MsgBox ("Orçamento/Pedido salvo em pdf na mesma pasta desta planilha com sucesso.")

Aguardo ajuda...