With CreateObject("InternetExplorer.Application")
Application.DisplayAlerts = False
Select Case Application.InputBox("Gewone trekking = 1 - Extra trekking = 2, maak Uw keuze ?", "Keuze trekking", , , , , , 1)
Case 1
.navigate "https://www.nationale-loterij.be/onze-spelen/lotto/uitslagen-trekking"
Case 2
.navigate "https://www.nationale-loterij.be/onze-spelen/extra-lotto/uitslagen-trekking"
Case Else
GoTo einde
End Select
Application.DisplayAlerts = True
en een kleine aanpassing bij einde:
einde:
ActiveSheet.Protect
With Application
.ScreenUpdating = True: .DisplayAlerts = True
End With