That means you’re trying to reference an item in a collection that doesn’t exist. Do you have a chart named (“Chart 10″) on the active sheet? Is there a workbook named “1205 WorkQueue Pivots May-12.xlsm”, which has a sheet named “DPD”, and which includes a range named “ChtSourceData”?

I get a Subscript Out Of Range error when I use this code in my DPD worksheet:

Sub UpdateChartSourceData4()
Charts(“Chart 10″).SetSourceData _
Source:=Workbooks(“1205 WorkQueue Pivots May-12.xlsm”).Worksheets(“DPD”).Range(“ChtSourceData”), _
PlotBy:=xlColumns
End Sub

ChtSourceData =OFFSET(DPD!$M$4,0,0,COUNTA(DPD!$M:$M)+1,COUNTA(DPD!$2:$2)+6)

Can you help?

Thanks

Mark

1. What are the error messages?

2. This procedure goes in the worksheet with the data. Use the keyword “Me” for the sheet containing the VBA code. You need to specify the chart:

Private Sub Worksheet_Calculate()
  With Worksheets("The Chart").ChartObjects("Chart 4").Chart
    With .Axes(xlCategory)
      ' only change it if it needs changing
      If .MinimumScale <> Me.Range("B94").Value Then
        .MinimumScale = Me.Range("B94").Value
      End If
      ' etc. for MaximumScale and MajorUnit
    End With
    With .Axes(xlValue)
      ' etc. for Value axis
    End With
  End With
End Sub

Thanks for getting back to me quickly. The only problem I think I am having is

1. When I Open and Close or work on another Excel file I get debug errors. I thought the code was private worksheet and is inserted specifically on the sheet where the chart is. So I don’t understand why working on another file or tab gives me a debug error.

2. I have a similar chart in sheet 2 and which changes based on changes in sheet 1. So i guess i cannot use activesheet in this case the second sheet is not active while i am looking at the first.

In this case, you need to use the Worksheet_Calculate event.

Private Sub Worksheet_Calculate()
  With ActiveSheet.ChartObjects("Chart 4").Chart
    With .Axes(xlCategory)
      ' only change it if it needs changing
      If .MinimumScale <> ActiveSheet.Range("B94").Value Then
        .MinimumScale = ActiveSheet.Range("B94").Value
      End If
      ' etc. for MaximumScale and MajorUnit
    End With
    With .Axes(xlValue)
      ' etc. for Value axis
    End With
  End With
End Sub