Macro Suddenly Running Slowly

So I have a macro which is running slowly, though I can't figure out why. I don't remember adding/subtracting from it. All code prior to this macro being called runs fine...So this part below runs fine:


Private Sub Step_3_Click()

Dim YR As String
YR = Range("C24")

Dim DT As String
DT = Range("C27")

Dim MNTH As String
MNTH = Range("D23")

For Each wb In Workbooks
If wb.Name = "Top100gen2start.xls" Then
MsgBox "You need to close the Top100gen2start.xls file before
proceeding.", , "Close Top100gen2start.xls file"
Exit Sub
End If
Next

If CheckBox1.Object = False And CheckBox2.Object = False And
CheckBox3.Object = False And CheckBox4.Object = False And
CheckBox5.Object = False Then
MsgBox "You didn't select a sector report to run!", , "Select a
sector report"
Exit Sub
End If

If CheckBox1.Object = True Then
Call FullBlown
If gameover = 1 Then
Exit Sub
End If
End If

Once I call that Fullblown macro (or any of macro similar to it in this process), the whole things slows WAY down (I mean as soon as it is called)...Not sure what I'm doing wrong, but here's the called macro:


Public Top100Check As Integer, gameover As Integer

Sub FullBlown()

Application.ScreenUpdating = False

' Dim x As Date

' x = Format(Date, "mm-dd-yy")

On Error GoTo Jump
' Workbooks("PERSONAL.XLS").Close
Jump:

Dim YR As String
YR = Range("C24")

Dim DT As String
DT = Range("C27")