ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.axforum.info/" Range("I21").Select