Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript out of range error message
I am trying to run this code:
Private Sub Worksheet_Change(ByVal Target As Range) Charts("Milestone Chart").Activate With ActiveChart .HasTitle = True .ChartTitle.Text = Range("B3") & " " & Range("B4") & " - NLP2" '"First Quarter Sales" End With Application.ScreenUpdating = False If Target.Address() = "$B$3" Then Call getMSaddress(Target) ElseIf Target.Address() = "$B$4" Then Call getMSaddress(Target) End If End Sub but I am getting the error message on: Charts("Milestone Chart").Activate I don't know why this is since I named the chart "Milestone Chart". Any ideas. Thanks. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript out of range error message
Worksheet change can't active objects. try this
Private Sub Worksheet_Change(ByVal Target As Range) With Charts("Milestone Chart") .HasTitle = True .ChartTitle.Text = Range("B3") & " " & Range("B4") & " - NLP2" '"First Quarter Sales" End With Application.ScreenUpdating = False If Target.Address() = "$B$3" Then Call getMSaddress(Target) ElseIf Target.Address() = "$B$4" Then Call getMSaddress(Target) End If End Sub "Ayo" wrote: I am trying to run this code: Private Sub Worksheet_Change(ByVal Target As Range) Charts("Milestone Chart").Activate With ActiveChart .HasTitle = True .ChartTitle.Text = Range("B3") & " " & Range("B4") & " - NLP2" '"First Quarter Sales" End With Application.ScreenUpdating = False If Target.Address() = "$B$3" Then Call getMSaddress(Target) ElseIf Target.Address() = "$B$4" Then Call getMSaddress(Target) End If End Sub but I am getting the error message on: Charts("Milestone Chart").Activate I don't know why this is since I named the chart "Milestone Chart". Any ideas. Thanks. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript out of range error message
This was what I had before. I changed it to:
Charts("Milestone Chart").Activate With ActiveChart when because I was getting the same error message. "joel" wrote: Worksheet change can't active objects. try this Private Sub Worksheet_Change(ByVal Target As Range) With Charts("Milestone Chart") .HasTitle = True .ChartTitle.Text = Range("B3") & " " & Range("B4") & " - NLP2" '"First Quarter Sales" End With Application.ScreenUpdating = False If Target.Address() = "$B$3" Then Call getMSaddress(Target) ElseIf Target.Address() = "$B$4" Then Call getMSaddress(Target) End If End Sub "Ayo" wrote: I am trying to run this code: Private Sub Worksheet_Change(ByVal Target As Range) Charts("Milestone Chart").Activate With ActiveChart .HasTitle = True .ChartTitle.Text = Range("B3") & " " & Range("B4") & " - NLP2" '"First Quarter Sales" End With Application.ScreenUpdating = False If Target.Address() = "$B$3" Then Call getMSaddress(Target) ElseIf Target.Address() = "$B$4" Then Call getMSaddress(Target) End If End Sub but I am getting the error message on: Charts("Milestone Chart").Activate I don't know why this is since I named the chart "Milestone Chart". Any ideas. Thanks. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript out of range error message
You are very limited on the type of operations you can perform with a
worksheet change macro. It is really only inteded to change the value of the cell where the change was made. You can read data from any location but you can only write data to the worksheet where the change was made. You also can't active cells on other worksheets or charts. "joel" wrote: Worksheet change can't active objects. try this Private Sub Worksheet_Change(ByVal Target As Range) With Charts("Milestone Chart") .HasTitle = True .ChartTitle.Text = Range("B3") & " " & Range("B4") & " - NLP2" '"First Quarter Sales" End With Application.ScreenUpdating = False If Target.Address() = "$B$3" Then Call getMSaddress(Target) ElseIf Target.Address() = "$B$4" Then Call getMSaddress(Target) End If End Sub "Ayo" wrote: I am trying to run this code: Private Sub Worksheet_Change(ByVal Target As Range) Charts("Milestone Chart").Activate With ActiveChart .HasTitle = True .ChartTitle.Text = Range("B3") & " " & Range("B4") & " - NLP2" '"First Quarter Sales" End With Application.ScreenUpdating = False If Target.Address() = "$B$3" Then Call getMSaddress(Target) ElseIf Target.Address() = "$B$4" Then Call getMSaddress(Target) End If End Sub but I am getting the error message on: Charts("Milestone Chart").Activate I don't know why this is since I named the chart "Milestone Chart". Any ideas. Thanks. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error Message "Subscript our of range" | Excel Discussion (Misc queries) | |||
Subscript out of range error - save copy error | Excel Programming | |||
FileCopy Command Giving "Subscript Out of Range" Error Message | Excel Programming | |||
Subscript Out Of Range Error Message | Excel Programming | |||
Subscript Out Of Range Error Message | Excel Programming |