Modul ändern

Sub x()
Dim vb As Object, lngCounter As Long
lngCounter = 0
Workbooks.Open "C:\Users\Peter\Desktop\Mappe1.xlsm"
For Each vb In ActiveWorkbook.VBProject.VBComponents
lngCounter = lngCounter + ChangeCode(vb.codemodule, "Tag", "Nacht")
Next
ActiveWorkbook.Close True
MsgBox lngCounter, , "Änderungen"
End Sub