Charts are a pain, but it looks like you've got a little bug:
ActiveChart.SeriesCollection(3).Values = "='Financial
Tracker'!R13C2: & strCell"
should read (I believe)
ActiveChart.SeriesCollection(3).Values = "='Financial
Tracker'!R13C2:" & strCell
It was evaluating as
='FinancialTracker'!R13C2: & strCell
rather than
='FinancialTracker'!R13C2:R20C2 (or whatever you row/colums were.
--
Message posted from
http://www.ExcelForum.com