hi thanks for that. I thank the orginal coder. I made a minor adjustment. works perfert for forms and class modules.
Sub SaveVBACode()
'This code Exports all VBA modules
Dim i As Integer
Dim mName As String
Dim Fname As String
With ThisWorkbook
For i = 1 To .VBProject.VBComponents.Count
If .VBProject.VBComponents(i).CodeModule.CountOfLines > 0 Then
mName = .VBProject.VBComponents(i%).CodeModule.name
Fname = .path & "" & mName & ".txt"
.VBProject.VBComponents(mName).Export Fname
End If
Next i
End With
End Sub