something like this?Private Sub CommandButton1_Click()
'remove old hyperlinks:
For Each hyp In Range("M2:M203").Hyperlinks
hyp.Delete
Next hyp
'add new ones:
For Each cll In Range("M2:M203")
ActiveSheet.Hyperlinks.Add Anchor:=cll,
Address:="http://moneycentral.msn.com/investor/charts/chartdl.aspx?PT=3&showchartbt=Redraw+chart&compsym s=&D4=1&DD=1&D5=2&DCS=2&MA0=1&MA1=2&CF=4&D8=1&DB=1 &DC=1&D7=&D6=&symbol="
& cll.Value & "&nocookie=1&SZ=2"
Next cll
End Sub


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=126203