Problem is the ANCHOR...it is set to "Selection" in both cases. Try this without using the With...
ActiveSheet.Hyperlinks.Add Anchor:=.[A4], Address:= _
"'https://xxxxxxxxxxxxxxxxxxxxxxxxxxxx", _
TextToDisplay:="LRS Web Site (address is https://xxxxxxxxxxxxxxxxxxxx)"
Edited per Tommy's request ~ Von Pookie


LinkBack URL
About LinkBacks



Reply With Quote

Bookmarks