My macro won't return a text value to my userform and I don't know why.

[jmpatrick]

Good morning.

I have code that runs from a button on a userform. The code works fine except for the first line. This line is supposed to send a status update to a text box on the userform. You'll notice there's also a second status update after the code runs. That one works fine, which is strange.

Sub TestHLinkValidityAll()

    Settings.MessageReturn.Value = "Testing for broken Hyperlinks"

    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
     
    Sheets("Calendar").Select
    Application.GoTo Reference:="CalendarAssets"
    Call TestHLinkValidityAssets
    Application.GoTo Reference:="CalendarFloorsOrderNumberColumn"
    Call TestHLinkValidityFloorOrderNumber
    Application.GoTo Reference:="CalendarLooseLumberOrderNumberColumn"
    Call TestHLinkValidityLooseLumberOrderNumber
    Application.GoTo Reference:="CalendarRoofTrussesOrderNumberColumn"
    Call TestHLinkValidityRoofTrussOrderNumber
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    Settings.MessageReturn.Value = "Testing complete.  Cells with RED backgrounds have broken Hyperlinks."
    
End Sub

 

[RoryA]

Does it help if you add Settings.Repaint after that line?

 

[jmpatrick]

Does it help if you add Settings.Repaint after that line?

It does! Thanks!

What does repaint do?

 

[RoryA]

Much as it sounds - it redraws the form. Sometimes if you change a form - especially if you turn screenupdating off - it doesn't always appear to update on screen immediately.