Excel 2013 screenupdating not working

Excelnewbie001

Board Regular
Joined
Jan 25, 2017
Messages
79
Happy new year to everyone. Hope someone can help me I have the following code which works beatifully in excel 2007 and 2010 but the screenupdating dont work seems select or activate set this back to true ? Cannot believe Microsoft cant fix their bugs. Any help appreciated - I dont know how can I select a sheet with screenupdating to false as its ignoring it which us not the case with excel 2007 or excel 2010. Seems 2013 and 2016 are the buggy version.Thanks for any help. I want the code to run silently not displaying anything

Code:
Sub Contact()
Application.ScreenUpdating = False
Worksheets("Ht").Visible = True
Sheets("Ht").Select
On Error GoTo ErrorHandler
   Select Case MsgBoxT("What do you wish?" & Chr(10) & Chr(10) & "Obs.: The option 2 will be selected in 30 seconds.", "Contact Support", 2, 30, "Visit JNL Homepage", "Send an Email to JNL", "Nothing")
   Case 1
      ActiveWorkbook.FollowHyperlink "http://jnl.com"
      Case 2
      ActiveWorkbook.FollowHyperlink "mailto:support@jnl.com"
   End Select
   Application.ScreenUpdating = True
ErrorHandler:
Exit Sub
End Sub

This code works flawlessly in office 2007 and 2010 but not 2013 and 2016
 

Excel Facts

Which came first: VisiCalc or Lotus 1-2-3?
Dan Bricklin and Bob Frankston debuted VisiCalc in 1979 as a Visible Calculator. Lotus 1-2-3 debuted in the early 1980's, from Mitch Kapor.
I'm going to guess that the on error has been triggered so the code jumps to the error handler and therefore doesn't set screen updating to true

Code:
Sub Contact()
Application.ScreenUpdating = False
Worksheets("Ht").Visible = True
Sheets("Ht").Select
On Error GoTo ErrorHandler
    Select Case MsgBoxT("What do you wish?" & Chr(10) & Chr(10) & "Obs.: The option 2 will be selected in 30 seconds.", "Contact Support", 2, 30, "Visit JNL Homepage", "Send an Email to JNL", "Nothing")
        Case 1
            ActiveWorkbook.FollowHyperlink "http://jnl.com"
        Case 2
            ActiveWorkbook.FollowHyperlink "mailto:support@jnl.com"
    End Select
ErrorHandler:
Application.ScreenUpdating = True
End Sub
 
Upvote 0
I'm going to guess that the on error has been triggered so the code jumps to the error handler and therefore doesn't set screen updating to true

Code:
Sub Contact()
Application.ScreenUpdating = False
Worksheets("Ht").Visible = True
Sheets("Ht").Select
On Error GoTo ErrorHandler
    Select Case MsgBoxT("What do you wish?" & Chr(10) & Chr(10) & "Obs.: The option 2 will be selected in 30 seconds.", "Contact Support", 2, 30, "Visit JNL Homepage", "Send an Email to JNL", "Nothing")
        Case 1
            ActiveWorkbook.FollowHyperlink "http://jnl.com"
        Case 2
            ActiveWorkbook.FollowHyperlink "mailto:support@jnl.com"
    End Select
ErrorHandler:
Application.ScreenUpdating = True
End Sub


I want it to be false not true.
Thanks for your reply but this works flawlessly in other excel versions example let say a persons internet connection is off then that errorhandler will stop the error. See this

https://www.ozgrid.com/forum/forum/...-application-screenupdating-false-not-working


Thanks for any help
 
Last edited:
Upvote 0
try this
Code:
Sub Contact()
Application.ScreenUpdating = False
Worksheets("Ht").Visible = True
Sheets("Ht").Select
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
    Select Case MsgBoxT("What do you wish?" & Chr(10) & Chr(10) & "Obs.: The option 2 will be selected in 30 seconds.", "Contact Support", 2, 30, "Visit JNL Homepage", "Send an Email to JNL", "Nothing")
        Case 1
            ActiveWorkbook.FollowHyperlink "http://jnl.com"
        Case 2
            ActiveWorkbook.FollowHyperlink "mailto:support@jnl.com"
    End Select
Application.ScreenUpdating = True
ErrorHandler:
Application.ScreenUpdating = True
End Sub
 
Upvote 0
I want it to be false not true.
Thanks for your reply but this works flawlessly in other excel versions example let say a persons internet connection is off then that errorhandler will stop the error. See this

https://www.ozgrid.com/forum/forum/...-application-screenupdating-false-not-working


Thanks for any help

Your code doesn't do much in Excel so far as I can tell, it unhides a sheet then directs the user to the internet... You don't provide the code for MsgBoxT either, the problem could lie in it.
 
Upvote 0
try this
Code:
Sub Contact()
Application.ScreenUpdating = False
Worksheets("Ht").Visible = True
Sheets("Ht").Select
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
    Select Case MsgBoxT("What do you wish?" & Chr(10) & Chr(10) & "Obs.: The option 2 will be selected in 30 seconds.", "Contact Support", 2, 30, "Visit JNL Homepage", "Send an Email to JNL", "Nothing")
        Case 1
            ActiveWorkbook.FollowHyperlink "http://jnl.com"
        Case 2
            ActiveWorkbook.FollowHyperlink "mailto:support@jnl.com"
    End Select
Application.ScreenUpdating = True
ErrorHandler:
Application.ScreenUpdating = True
End Sub

Still the same behaviour thanks Mole 9999.....starting to think it might be the function msgBoxT thats not compatible
 
Upvote 0
Your code doesn't do much in Excel so far as I can tell, it unhides a sheet then directs the user to the internet... You don't provide the code for MsgBoxT either, the problem could lie in it.

You got a vallid point I cant understand it
 
Upvote 0

Forum statistics

Threads
1,213,526
Messages
6,114,136
Members
448,551
Latest member
Sienna de Souza

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top