Thanks Alen32, this was helpful,
I got everything working, but I can't seem to figure out how to get the
range part to work
..Range(james_week_1) instead of .Range("B104:F105")

If I put a defined name range where the B104:F105 is I get an error.

Does anyone know how to put (or can it be done) in a named range?
Thanks
James


'================================================= ===
Dim strChart As String
dim strSheetName as String

'get the employees name
lngPos_1 = (InStr(strChart, "_") - 1)
strSheetName = Left(strChart, lngPos_1)

'get the selection from the drop down listbox
strChart = cmbCharts.Text

'define the data to be charted
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData
Source:=Sheets(strSheetName).Range("B104:F105"), _
PlotBy:=xlRows
ActiveChart.Location Whe=xlLocationAsObject, Name:="Totals"