It looks like you're using an Ad Blocker.
Please white-list or disable AboveTopSecret.com in your ad-blocking tool.
Thank you.
Some features of ATS will be disabled while you continue to use an ad-blocker.
Sub URL()
Selection.InsertBefore "[url=" & sText & "]"
Selection.InsertAfter "[/url]"
End Sub
Sub URL()
Dim sTextURL As String
Dim sTextName As String
sTextURL = InputBox("Write the URL for which you want to create a link with BB code:", "URL", "http://")
sTextName = InputBox("Write the text that will appear for the link:", "URL")
Selection.InsertBefore "[url=" & sTextURL & "]" & sTextName & "[/url]"
End Sub
Sub URL()
Dim sTextURL As String
sTextURL = InputBox("Write the URL for which you want to create a link with BB code:", "URL", "http://")
Selection.InsertBefore "[url=" & sTextURL & "]"
Selection.InsertAfter "[/url]"
End Sub