Creare una macro che processi in automatico tutti i file di una cartella

BUongiorno a tutti!
Ringrazio in anticipo chiunque mi voglia aiutare a risolvere questo problema!

Devo modificare tantissimi file cambiando il formato delle celle da "generale" a "formato numerico.
Ho registrato una macro che lo faccia dopo aver aperto il file e fino a qui tutto bene, ma dato il numero eccessivo di file vorrei sapere se esiste un modo per processare tutti i file contenuti in una cartella con la stessa macro.

quella che ho registrato io è questa:


Sub formatonum()
'
' formatonum Macro
'
' Scelta rapida da tastiera: CTRL+MAIUSC+F
'
Selection.CurrentRegion.Select
Selection.NumberFormat = "0.00"
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveWorkbook.Save
End Sub

Su internet ne ho trovata un'altra che dovrebbe automatizzare il processo ma non sono riuscita a farla funzionare.

Sub ExecuteApplyMacroToAllFiles()

'Change the path to the main folder
Call ApplyMacroToAllFiles("C:\test folder")

End Sub

Sub ApplyMacroToAllFiles(ByVal MyPath As String)

Dim FileSys As Object
Dim objFolder As Object
Dim objSubFolder As Object
Dim objFile As Object
Dim wkbOpen As Workbook

Set FileSys = CreateObject("Scripting.FileSystemObject")
Set objFolder = FileSys.GetFolder(MyPath)

Application.ScreenUpdating = False

For Each objSubFolder In objFolder.SubFolders
For Each objFile In objSubFolder.Files
Set wkbOpen = Workbooks.Open(filename:=objFile)
'Change the name of your macro
Call MyMacro
wkbOpen.Close savechanges:=True
Next
Call ApplyMacroToAllFiles(objSubFolder.Path)
Next

Application.ScreenUpdating = True

End Sub

Allego dei file di sample

sostituisci la riga
Call MyMacro
con
Call formatonum
e metti il giusto percorso in
Call ApplyMacroToAllFiles("C:\test folder")

ho fatto esattamente questo, però non funziona. Mi da un errore "09".

Sarebbe molto importante per me risolvere questo problema, è possibile elaborare questa macro?

Ciao
- ma i file hanno un solo foglio?
- dove inizia il range cui devi assegnare la formattazione?

ti faccio un esempio:
questo codice apre tutti i file di una determinata cartella (MiaCartella) in modo nascosto, seleziona il "currentRegion" a partire da A1 del relativo foglio attivo, assegna la formattazione, salva e chiude.



Saluti

ringrazio per la macro che funziona, solo che mi consente la selezione solo di uno dei file all'interno della cartella, e lo modifica correttamente mentre negli altri, che vengono modificati, vengono cambiati i valori e non funziona come dovrebbe

Non riesco a farla funzionare. comunque i file hanno un solo foglio costitutito da una sola riga con 10 colonne compilate con dei numeri in formato generico che vorrei convertire in formato numerico, perchè poi dovranno essere processati da altri programmi.
Quindi comincia da A1 e finisce in J1

Ciao
Il codice processa correttamente tutti i file xls della cartella indicata.

Che estensione hanno i file da processare??
Se sono anche xlsx - xlsm - xls, devi modificare:

strFile = Dir(mFolder & "*.xls*")
saluti

i file sono formato .xls, foglio di lavoro excel 97-2003 come quelli che ho messo come sample.
non capisco perchè la macro riesce a processarli tutti e li modifica, solo che il formato rimane generale!

il motivo potrebbe essere che quando apro il file lo definisce come "non sicuro" perchè il formato e l'estensione del file non corrispondono?

credo di aver capito, è prima necessario cambiare il formato dei file per cui è necessario che prima di essere modificati un altro passaggio li salvi come "cartella di lavoro excel"

forse sta diventando troppo complicato! :(