同じ階層にフォルダを作成する（Mkdir）

Sub フォルダ作成()

　'--- 作成したいフォルダのパス ---'
　Dim strPath As String
　
　strPath = ThisWorkbook.Path & "¥処理後"

　'--- フォルダが存在しない場合のみMkDirで作成 ---'
　If (Dir(strPath, vbDirectory) = "") Then

　　Call MkDir(strPath)

　Else
　　MsgBox "フォルダ作成済みです。確認してください。"

　End If

End Sub