Buongiorno, avrei bisogno del vostro aiuto per riuscire a estrarre dai moduli il nomi delle funzioni e delle sub. Sono riuscito ad estrarre nomi dei moduli e numeri di procedure, ma non riesco a capire come andare avanti.
Grazie
Sub ModuliDichiarazioni()
Dim i As Integer
Dim NomiModulo As Modules
Dim x As Integer
Set NomiModulo = Application.Modules
For i = 0 To NomiModulo.Count - 1
Debug.Print "Nome modulo : ", NomiModulo(i).Name, "Nr dichiar : ", NomiModulo(i).CountOfDeclarationLines
For x = 0 To NomiModulo(i).CountOfDeclarationLines
Next
Next
End Sub