ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:= _
"http://www.MrExcel.com", TextToDisplay:="MrExcel"
=HYPERLINK("http://www.amazon.com/AME-Sleepwear-Boys-Roddin-Pajama/dp/"&A1&"/ref=sr_1_1?ie=UTF8&s=apparel&qid=1290159410&sr=8-1""")