MS Excel VBA to complete after the final worksheet

Experts,

Attached is a spreadsheet (.xls) that applies a macro to a selected workbook (.xlsm) with 10 worksheets.

The following code appears to work; however, it never completes and there is a continuous circle.  Along the way, it appears all of the worksheets are being updated.  

How can the code be modified to stop after completion?

I think the problem might be in the sub procedure named, Sub WoksheetsByCodeName (at the end).

Private Sub cmdOK_Click()
cmdOK.Enabled = False
Dim app                 As Application
Dim wbTarget            As Workbook                                ' *** REINSTATED!
Dim strReturnedValue    As String
Dim SSFileName          As String
Dim FullName            As String

If Risk = -1 Then

'================================================
   'Set a reference to the new instance
'================================================
Set app = New Application

With app
.Visible = True
.WindowState = xlMinimized

'================================================
   'Open Workbook
'================================================
FullName = UserForm1.SSFileName
'Set wbTarget = app.Workbooks.Open(UserForm1.SSFileName)
Set wbTarget = Workbooks.Open(UserForm1.SSFileName)

'================================================
    'Run selected macro
'================================================
    'Application.Run "SSreportBuilder.xls!McrRisk"
    WoksheetsByCodeName
       
'================================================
    'Close Workbook and Kill the instance
'================================================
        wbTarget.Close True
        .Quit
End With
cmdOK.Enabled = False
MsgBox "The Spreadsheet has been updated using the correct formats"
Else
    MsgBox "Please select a Macro"
End If
Unload Me
End Sub
Private Sub cmdSelect_Click()
    Dim fileToOpen As Variant
   
    fileToOpen = Application.GetOpenFilename("Excel files(*.xls*),*.xls*", , "Select File")
    If fileToOpen <> False Then
        SSFileName.Value = fileToOpen
    End If

End Sub
Private Sub OptionButton1_Click()

End Sub
Public Sub SpreadsheetPath()
    Dim FULL_PATH As String

End Sub
Private Sub DoAll()
Dim wbkX As Workbook
For Each wbkX In Application.Workbooks
wbkX.Activate
Application.Run ThisWorkbook.Name & "!McrRisk"
Next wbkX
End Sub

Sub WoksheetsByCodeName()
Dim ws As Worksheet
Dim lngRow As Long
Dim lngCount As Long
For Each ws In Worksheets
lngRow = 8
'Select   case is case sensitive
Select Case UCase(ws.CodeName)
Case "SHEET10"
Case Else ' do calculations for all other sheets
With ws
Do
lngCount = .Range("A" & lngRow).End(xlDown).Row - lngRow
Application.Run "SSreportBuilder.xls!McrRisk"
If lngRow > 100 Then Exit Do
Loop
End With
End Select
Next ws
End Sub
SSReportBuilder.xls