crear carpetas desde excel

[miglos]

Bueno, hasta el momento me funciona correctamente este código:

Código:

Sub Crea_Carpetas()
ruta = ActiveWorkbook.Path
   While ActiveCell.Value <> ""
      ActiveCell.Offset(1, 0).Range("A1").Select
      Nombre = ActiveCell.Value
      MkDir ruta & "\" & Nombre
   Wend
End Sub

Al menos cumple básicamente con lo que necesito.
Pero, y si quisiera que el nombre de la carpeta se forme de los valores de 2 celdas contiguas (A2-B2 , A3-B3, etc)?
Otra cosa, cuando encuentra un codigo igual, no continua creando el resto de carpetas y aparece un mensaje "Se ha producido el error 75 en tiempo de ejecución".

Adicionalmente, si quisiera que al final de la ejecución, me muestre un mensaje:
"Se han creado XX carpetas", como haria, intente con un contador de la siguiente manera:

Código:

Sub Crea_Carpetas()
contador = 0
ruta = ActiveWorkbook.Path

   While ActiveCell.Value <> ""
      ActiveCell.Offset(1, 0).Range("A1").Select
      Nombre = ActiveCell.Value
      MkDir ruta & "\" & Nombre
      contador = contador + 1
   Wend
Respuesta = MsgBox("Se han creado " & contador & " carpetas", 1, "Creación de Carpetas")
End Sub

Pero no llega a mostrar el mensaje. Aparentemente me falta controlar el fin de la ejecución.

Agradezco la ayuda que me puedan dar.