VBA para extraer todas las palabras de varios libros de trabajo en una carpeta y colocarlo en una sola columna con el conteo de palabras

Necesito una gran ayuda ya que ni siquiera sé cómo comenzar esto. Tengo una gran cantidad de libros de trabajo en una carpeta y necesito extraer todas las palabras / numbers / símbolos de ellos y colocarlos en otra hoja de libro de trabajo. diga results.xlsx sheet1, sin embargo, las palabras / numbers / símbolos también se deben contar por el número de veces utilizado en todos los documentos de Excel. Las hojas de trabajo tienen el contenido extendido a su alnetworkingedor, diferentes columnas y celdas. Entonces la salida debe ser:

wordX 1212121 wordY 212121 1000 12121 @we 1221 

Alguna idea de como comenzar esto? Muchas gracias de antemano

Este es un garabato, solo para propósitos de despertar el pensamiento, no puedo prometer que funcionará en un ambiente en vivo, de hecho puedo prometer que no lo hará.

 Dim MyArr() As String, WordArr() As String, Numerosity() As Long, rng As Range, rng1 As Range Set rng1 = ws.Cells.Find(What:="*") 'the first cell where there is data While rng <> rng1 'while it's not the first cell, you'll have to work on it Set rng = ws.Cells.Find(What:="*", After:=rng) 'after the previous find Set MyArr = Split(rng.Value2," ") 'splits cell contents by space, you can further process the set For i = LBound(MyArr) To UBound(MyArr) 'for each of the words in the set Present = False For j = LBound(WordArr) To UBound(WordArr) 'check against each element in the full array of words If MyArr(i) = WordArr(j) Then 'if there's a match Numerosity(j) = Numerosity(j) +1 'you increase the numerosity counter Present = True End If Next j If Not Present Then 'if it is yet to be submitted ReDim Preserve WordArr 'khmm, there's probably someone who knows WordArr(UBound(WordArr)) = MyArr(i) 'append it to the end ReDim Preserve Numerosity 'again Numerosity(UBound(Numerosity)) = 1 End If Next i Wend