Crear carpeta según valores de una tabla de excel
Tengo un problema que seguramente será fácil de solucionar pero que soy incapaz de dar con ello. Intentaré explicarme lo mejor posible.
Tengo una carpeta que se llama Archivo en la cual contiene lo siguiente:
Un fichero excel con macro denominado provincia.xlsm
Una carpeta llamada Imagenes que contiene ficheros de imagen
El fichero excel tiene este formato
ID Código iic
1111 A111222
2222 B222333
3333 C444555
4444 D555666
Lo que necesito es que a través de un código generar carpetas con los valores que selecciono. Para ello he incluido este código
Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub
Este código lo que hace es generar carpetas dentro de la carpeta archivo con el nombre de los valores seleccionados. Hasta ahí bien pero y aquí mi duda ¿Cómo puedo hacer para que dentro de cada una de esas carpetas le incluya su fichero de imagen correspondiente? Por ejemplo el ID 1111 tiene dentro de Imagenes un fichero llamado 1111.jpg pues que lo meta dentro de esa carpeta.
Espero haberme explicado bien. Como siempre muy agradecido por la ayuda que me puedan prestar.