Here's the code. It's within a subroutine which is called from serveral
other subroutines. I do a bit of EnableEvents and ScreenUpdating commands in
my code for various reasons. Most of the time this code works. But some
condition seems to exist that stops the 'range("D2").Select' from executing
properly. Haven't seen this before and I do have quite a lot of code in
Macros in many other Excel applictions.
=============================================
Excel.ActiveSheet.ChartObjects("Chart 52").Activate
Excel.ActiveSheet.ChartObjects("Chart 52").Select
Excel.Sheets("InterActive Chart").Range("D2").Value = "X3"
Excel.Sheets("InterActive Chart").Range("D2").Select
===============================================
The first 3 lines work properly, but I have no idea what Excel or VBA is
doing when I execute line 4. It does nothing, and I don't know where the
cursor is.
Any suggestions would be welcome.

I'm not sure about charts but to select a range on a worksheet that
worksheet must be the selected worksheet. Assuming the same rule applies
for charts then "Chart 52" is selected when you are trying to select a range
on "InterActive Chart."

To avoid this problem change your code to read.

Excel.ActiveSheet.ChartObjects("Chart 52").Select
Excel.Sheets("InterActive Chart").Range("D2").Value = "X3"
Excel.Sheets("InterActive Chart").Select
Excel.Sheets("InterActive Chart").Range("D2").Select

Or, if possible"

With Excel.Sheets("InterActive Chart")
.Select
.Range("D2").Select
End With



--
My handle should tell you enough about me. I am not an MVP, expert, guru,
etc. but I do like to help.


"bill m" wrote in message
...
Here's the code. It's within a subroutine which is called from serveral
other subroutines. I do a bit of EnableEvents and ScreenUpdating commands
in
my code for various reasons. Most of the time this code works. But some
condition seems to exist that stops the 'range("D2").Select' from
executing
properly. Haven't seen this before and I do have quite a lot of code in
Macros in many other Excel applictions.
=============================================
Excel.ActiveSheet.ChartObjects("Chart 52").Activate
Excel.ActiveSheet.ChartObjects("Chart 52").Select
Excel.Sheets("InterActive Chart").Range("D2").Value = "X3"
Excel.Sheets("InterActive Chart").Range("D2").Select
===============================================
The first 3 lines work properly, but I have no idea what Excel or VBA is
doing when I execute line 4. It does nothing, and I don't know where the
cursor is.
Any suggestions would be welcome.

Can't tell what the active sheet's name is, but if it isn't "Interactive
Chart", then you can't select cell D2 on it without it being activated
first. Try

Excel.Sheets("InterActive Chart").Activate
before the select statement.

"bill m" wrote in message
...
Here's the code. It's within a subroutine which is called from serveral
other subroutines. I do a bit of EnableEvents and ScreenUpdating commands
in
my code for various reasons. Most of the time this code works. But some
condition seems to exist that stops the 'range("D2").Select' from
executing
properly. Haven't seen this before and I do have quite a lot of code in
Macros in many other Excel applictions.
=============================================
Excel.ActiveSheet.ChartObjects("Chart 52").Activate
Excel.ActiveSheet.ChartObjects("Chart 52").Select
Excel.Sheets("InterActive Chart").Range("D2").Value = "X3"
Excel.Sheets("InterActive Chart").Range("D2").Select
===============================================
The first 3 lines work properly, but I have no idea what Excel or VBA is
doing when I execute line 4. It does nothing, and I don't know where the
cursor is.
Any suggestions would be welcome.

You can only select a cell on the activesheet:

Add
Excel.Sheets("InterActive Chart").Select
before
Excel.Sheets("InterActive Chart").Range("D2").Select

(or just drop the .select/.activates completely and just work directly on the
ranges.)

bill m wrote:

Here's the code. It's within a subroutine which is called from serveral
other subroutines. I do a bit of EnableEvents and ScreenUpdating commands in
my code for various reasons. Most of the time this code works. But some
condition seems to exist that stops the 'range("D2").Select' from executing
properly. Haven't seen this before and I do have quite a lot of code in
Macros in many other Excel applictions.
=============================================
Excel.ActiveSheet.ChartObjects("Chart 52").Activate
Excel.ActiveSheet.ChartObjects("Chart 52").Select
Excel.Sheets("InterActive Chart").Range("D2").Value = "X3"
Excel.Sheets("InterActive Chart").Range("D2").Select
===============================================
The first 3 lines work properly, but I have no idea what Excel or VBA is
doing when I execute line 4. It does nothing, and I don't know where the
cursor is.
Any suggestions would be welcome.

--

Dave Peterson

Hope I didn't confuse anyone out there. The code below is a portion of code
I put in to test what was happening. The original code selected on a range
and copied the selection to another area. It isn't that the code does not
work it just doesn't work all the time. Most of the time it executes without
a problem. Just seems like it disassociates from Excel at least in the
select function. No matter how I write the code to select it just doesn't. I
have tried all the codes from the previous responsed before. Thought for
sure that reactivating the worksheet was the solution but that also has no
effect. Heres the code as it stands right now.
========================================
Private Sub Radio_Buttons()
Application.EnableEvents = False
Application.ScreenUpdating = False

Excel.Sheets("InterActive Chart").Activate
Worksheets("INTERACTIVE CHART").Select

Range("A295:BF295").Value = ""
Application.Goto Reference:="DateRange"
Selection.Copy
Range("A295").Select
Selection.PasteSpecial Paste:=xlValues
========================================
When it gets to 'Selection.Copy' I get 'Copy method of Range class failed'.
The subroutine executed as least 5 times and then got this error. For some
reason the program is just not in control of the Excel worksheet.

Thanks to everyone for the replies.



"bill m" wrote in message
...
Here's the code. It's within a subroutine which is called from serveral
other subroutines. I do a bit of EnableEvents and ScreenUpdating commands
in
my code for various reasons. Most of the time this code works. But some
condition seems to exist that stops the 'range("D2").Select' from
executing
properly. Haven't seen this before and I do have quite a lot of code in
Macros in many other Excel applictions.
=============================================
Excel.ActiveSheet.ChartObjects("Chart 52").Activate
Excel.ActiveSheet.ChartObjects("Chart 52").Select
Excel.Sheets("InterActive Chart").Range("D2").Value = "X3"
Excel.Sheets("InterActive Chart").Range("D2").Select
===============================================
The first 3 lines work properly, but I have no idea what Excel or VBA is
doing when I execute line 4. It does nothing, and I don't know where the
cursor is.
Any suggestions would be welcome.

Hope I didn't confuse anyone out there. The code below is a portion of code
I put in to test what was happening. The original code selected on a range
and copied the selection to another area. It isn't that the code does not
work it just doesn't work all the time. Most of the time it executes without
a problem. Just seems like it disassociates from Excel at least in the
select function. No matter how I write the code to select it just doesn't. I
have tried all the codes from the previous responsed before. Thought for
sure that reactivating the worksheet was the solution but that also has no
effect. Heres the code as it stands right now.
========================================
Private Sub Radio_Buttons()
Application.EnableEvents = False
Application.ScreenUpdating = False

Excel.Sheets("InterActive Chart").Activate
Worksheets("INTERACTIVE CHART").Select

Range("A295:BF295").Value = ""
Application.Goto Reference:="DateRange"
Selection.Copy
Range("A295").Select
Selection.PasteSpecial Paste:=xlValues
========================================
When it gets to 'Selection.Copy' I get 'Copy method of Range class failed'.
The subroutine executed as least 5 times and then got this error. For some
reason the program is just not in control of the Excel worksheet.

Thanks to everyone for the replies.


"bill m" wrote in message
...
Here's the code. It's within a subroutine which is called from serveral
other subroutines. I do a bit of EnableEvents and ScreenUpdating commands
in
my code for various reasons. Most of the time this code works. But some
condition seems to exist that stops the 'range("D2").Select' from
executing
properly. Haven't seen this before and I do have quite a lot of code in
Macros in many other Excel applictions.
=============================================
Excel.ActiveSheet.ChartObjects("Chart 52").Activate
Excel.ActiveSheet.ChartObjects("Chart 52").Select
Excel.Sheets("InterActive Chart").Range("D2").Value = "X3"
Excel.Sheets("InterActive Chart").Range("D2").Select
===============================================
The first 3 lines work properly, but I have no idea what Excel or VBA is
doing when I execute line 4. It does nothing, and I don't know where the
cursor is.
Any suggestions would be welcome.

I'd still drop the .select's:

Private Sub Radio_Buttons()
Application.EnableEvents = False
Application.ScreenUpdating = False

with Worksheets("INTERACTIVE CHART")
.Range("A295:BF295").Value = ""
.range("dateRange").copy
.range("a295").pastespecial paste:=xlvalues
end with

with application
.enableevents = true
.screenupdating = true
end with
end sub

This assumes that "dateRange" is on that "interactive chart" sheet.


It looks as though your original code is in a worksheet module. Unqualified
ranges refer to the sheet that owns the code--not the activesheet. So you'd
have to qualify each range object that refers to other sheets.




bill m wrote:

Hope I didn't confuse anyone out there. The code below is a portion of code
I put in to test what was happening. The original code selected on a range
and copied the selection to another area. It isn't that the code does not
work it just doesn't work all the time. Most of the time it executes without
a problem. Just seems like it disassociates from Excel at least in the
select function. No matter how I write the code to select it just doesn't. I
have tried all the codes from the previous responsed before. Thought for
sure that reactivating the worksheet was the solution but that also has no
effect. Heres the code as it stands right now.
========================================
Private Sub Radio_Buttons()
Application.EnableEvents = False
Application.ScreenUpdating = False

Excel.Sheets("InterActive Chart").Activate
Worksheets("INTERACTIVE CHART").Select

Range("A295:BF295").Value = ""
Application.Goto Reference:="DateRange"
Selection.Copy
Range("A295").Select
Selection.PasteSpecial Paste:=xlValues
========================================
When it gets to 'Selection.Copy' I get 'Copy method of Range class failed'.
The subroutine executed as least 5 times and then got this error. For some
reason the program is just not in control of the Excel worksheet.

Thanks to everyone for the replies.

"bill m" wrote in message
...
Here's the code. It's within a subroutine which is called from serveral
other subroutines. I do a bit of EnableEvents and ScreenUpdating commands
in
my code for various reasons. Most of the time this code works. But some
condition seems to exist that stops the 'range("D2").Select' from
executing
properly. Haven't seen this before and I do have quite a lot of code in
Macros in many other Excel applictions.
=============================================
Excel.ActiveSheet.ChartObjects("Chart 52").Activate
Excel.ActiveSheet.ChartObjects("Chart 52").Select
Excel.Sheets("InterActive Chart").Range("D2").Value = "X3"
Excel.Sheets("InterActive Chart").Range("D2").Select
===============================================
The first 3 lines work properly, but I have no idea what Excel or VBA is
doing when I execute line 4. It does nothing, and I don't know where the
cursor is.
Any suggestions would be welcome.



--

Dave Peterson