Macro para crear carpetas usando algún comando para evitar el error cuando ya existan
Hola a todos, estoy trabajando en un programa en vb y necesito crear una carpeta con el nombre de una celda, en esta carpeta, tengo que guardar una cierta cantidad de de hojas del mismo libro (esto lo tengo solucionado) el tema es que me arroja error cuando coincide que la nueva carpeta que quiero crear ya existe (el nombre se repite).
Por lo tanto, la ayuda que necesito es: algún código con el cual pueda crear la carpeta y me avise si es que ya existe o no.
Desde ya muchas gracias,
Como ejemplo estoy usando este código que me funciona perfecto pero me arroja error cuando se repite el nombre de la carpeta
MkDir ("d:\" & Hoja1.[a2])
Worksheets(2).Copy
ActiveWorkbook.SaveAs "d:\" & Hoja1.[a2] & "\" & ActiveSheet.Name
ActiveWorkbook.Close
Worksheets(3).Copy
ActiveWorkbook.SaveAs "d:\" & Hoja1.[a2] & "\" & ActiveSheet.Name
ActiveWorkbook.Close
Application.ScreenUpdating = False