Msg box doesnt display

[JoeExcelHelp]

Code: Select all

Sub ImportDistributeActiveInactiveSeasonalOrientationUpdateClassData4()
    ActiveSheet.Shapes("Importing Active Inactive Seasonal Orientation").Visible = True
    Call Module7.ImportActiveInactiveSeasonalOrientation
    Application.OnTime Now + TimeSerial(0, 0, 2), "ImportDistribute2"
    ActiveSheet.Shapes("Importing Active Inactive Seasonal Orientation").Visible = False
End Sub

Sub ImportDistribute2()
    ActiveSheet.Shapes("Distributing Active Inactive Seasonal Orientation").Visible = True
    Call Module4.DistributeActiveInactiveSeasonal
    Application.OnTime Now + TimeSerial(0, 0, 2), "ImportDistribute3"
    ActiveSheet.Shapes("Distributing Active Inactive Seasonal Orientation").Visible = False
End Sub

Sub ImportDistribute3()
    ActiveSheet.Shapes("Updating ClassDist").Visible = True
    Call Module9.SortClassDist
    Application.OnTime Now + TimeSerial(0, 0, 2), "ImportDistribute4"
    ActiveSheet.Shapes("Updating ClassDist").Visible = False
End Sub
Sub ImportDistribute4()
    ActiveSheet.Shapes("Updating Data4").Visible = True
    Call Module5.CombineAllData4
    ActiveSheet.Shapes("Updating Data4").Visible = False
End Sub

[HansV]

There is no line with MsgBox in the code that you posted...

[JoeExcelHelp]

Sorry about that posted the wrong code was toying with user forms :)
I'm just trying to give the user code status as its running but dont want the "OK" option just a msg that displays throughout code cycles

Code: Select all

Sub ImportDistributeActiveInactiveSeasonalOrientationUpdateClassData4()
    MsgBox "Test1", vbInformation
    Call Module7.ImportActiveInactiveSeasonalOrientation
    Application.OnTime Now + TimeSerial(0, 0, 2), "ImportDistribute2"
    
End Sub

Sub ImportDistribute2()
    MsgBox "Test2", vbInformation
    Call Module4.DistributeActiveInactiveSeasonal
    Application.OnTime Now + TimeSerial(0, 0, 2), "ImportDistribute3"
    
End Sub

Sub ImportDistribute3()
    MsgBox "Test3", vbInformation
    Call Module9.SortClassDist
    Application.OnTime Now + TimeSerial(0, 0, 2), "ImportDistribute4"
    
End Sub
Sub ImportDistribute4()
    MsgBox "Test4", vbInformation
    Call Module5.CombineAllData4
    
End Sub

[HansV]

Don't use a message box. You could set the text of the status bar:

Application.StatusBar = "Test1"

To reset the status bar, use

Application.StatusBar = False