• last year
Sub Making_folder()
For Each cell In Selection
MkDir "D:\Mar2023\" & cell.Value
Next cell
End Sub