Thank you Jon. I need to do this via VBA as this is a client requirement.
I removed the last quote like you suggested and I am getting the following
error:
"Run Time Error 91: Object Variable or withblock variable not set."
I played around with this a bit and also tried replacing the above statement
with the following. But this time, I got a different error "Run Time Error
1004: Method Run of Object '_Application' failed. Can you help please?
Thanks for your time!
Set myrange = Range("c1:c3, d1:d" & lr)
With ActiveChart
.SetSourceData Source:=Sheets(custname).Range(myrange),
PlotBy:=xlColumns
.Location Whe=xlLocationAsObject, Name:=custname
.HasTitle = True
.ChartTitle.Characters.Text = UserForm1.title1 & " - " & custname
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
|