Chart from VBA
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"
|