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
This code works flawlessly in office 2007 and 2010 but not 2013 and 2016
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