Listar metadatos de fotografías en una hoja excel con vba

Debo indexar diariamente fotografías y las quiero etiquetar con el explorador de archivos que proporciona Windows 10.

Se me ha ocurrido hacerlo de la manera que les copio a continuación.

Sub propiedades()
Dim arrHeaders(34)

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("\\servidor\Imagenes\")

For i = 0 To 33
arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
Next

For Each strFileName In objFolder.Items

For i = 0 To 33

Debug.Print i & vbTab & arrHeaders(i)  & ": " & objFolder.GetDetailsOf(strFileName, i)

Next
Next
End Sub

De esta manera obtengo los detalles de los objetos o metadatos en la ventana de Debug en secuencia de la carpeta Imagenes

La consulta es: si me pueden ayudar a que lo hiciera recorriendo los existentes subdirectorios y poniendo los datos sobre una hoja excel con el nombre del fichero en las filas y sus propiedades en columnas.