Function Web_ArtistsOriginals()
With CodeContextObject
Dim WebLink As String
WebLink = "[URL="http://www.whatever.com/?user=tsusername"][COLOR=#0066cc]http://www.whatever.com[/COLOR][/URL]" & "?user=" & .[tsusername] & ""
Application.FollowHyperlink WebLink, , True
HideWebToolBar
End With
End Function