Sub OUPFetchPremium() ' Paul Beverley - Version 11.11.22 ' Launches selected text to OUP Premium website. mySite = "https://premium.oxforddictionaries.com/definition/english/" numTabs = 0: myWait = 2 ' Depending on your browser + internet connection ' you might need a longer wait, or could get away with less. testMode = False ' testMode = True If Selection.Start = Selection.End Then Selection.Expand wdWord Do While InStr(ChrW(8217) & "' ", Right(Selection.Text, 1)) > 0 Selection.MoveEnd , -1 DoEvents Loop Else endNow = Selection.End Selection.MoveLeft wdWord, 1 startNow = Selection.Start Selection.End = endNow Selection.Expand wdWord Do While InStr(ChrW(8217) & "' ", Right(Selection.Text, 1)) > 0 Selection.MoveEnd , -1 DoEvents Loop Selection.Start = startNow End If Selection.Copy ActiveDocument.FollowHyperlink Address:=mySite If testMode = True Then Beep myTime = Timer Do Loop Until Timer > myTime + 0.2 Beep Exit Sub End If myTime = Timer Do Loop Until Timer > myTime + myWait For i = 1 To numTabs SendKeys "{TAB}" Next i SendKeys "^v" SendKeys "{ENTER}" End Sub