Skip to content

Instantly share code, notes, and snippets.

@githubyouser

githubyouser/openBibleRefs.bas

Last active September 12, 2022 20:23
Show Gist options
  • Save githubyouser/50501e6083821b5625928c78cbec1acb to your computer and use it in GitHub Desktop.
Save githubyouser/50501e6083821b5625928c78cbec1acb to your computer and use it in GitHub Desktop.
Download ZIP
Search BibleGateway.com for the selected reference
Raw
openBibleRefs.bas
'https://www.mrexcel.com/board/threads/open-webpage-via-vba.832507/
Sub OpenWebpage()
'Catch the selected reference
Set myRef = Selection.Range
Dim URLa As String
Dim URLb As String
URLa = "https://www.biblegateway.com/passage/?search="
URLb = "&version=ESV"
ActiveDocument.FollowHyperlink (URLa + myRef + URLb)
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment