Delete Empty Worksheet Modules

This routine will remove Module1 from the current project.
This code should not be in Module1

Sub test()
    Dim modName As String, xMod As VBComponent
    Dim strPrompt As String
    
    modName = "Module1"
    
    Set xMod = ThisWorkbook.VBProject.VBComponents(modName)
    With xMod.CodeModule
        strPrompt = .Lines(1, .CountOfLines)
    End With
    
    strPrompt = "Remove " & xMod.Name & vbCr & vbCr & strPrompt
    
    If MsgBox(strPrompt, vbYesNo) = vbYes Then
        ThisWorkbook.VBProject.VBComponents.Remove xMod
    End If
End Sub

I was just giving the syntax for removing a code module.
The loop to check code modules is straight-forward.
As you write that loop, you need to test if your editor has automatically inserted Option Explicit.

This works - but it's set to delete a module with less than three lines - take care

Sub CountLinesinModule(): Dim wba As Workbook: Set wba = ActiveWorkbook
Dim M As Object, N As String, X As Integer, C As Object
        For Each M In wba.VBProject.VBComponents: N = M.Name
        If N Like "Sheet*" Then GoTo GetNext
        If InStr(1, N, "ThisWorkbook") Then GoTo GetNext
Set C = wba.VBProject.VBComponents(N).CodeModule: X = C.CountOfLines
If X < 3 Then wba.VBProject.VBComponents.Remove M
GetNext: Next
End Sub

You're welcome and thanks for the rep!