code fails if graph is selected

[Scott]

This code fails if a graph on the same sheet is selected (clicking inside the
graph)

Columns("B:B").Select

If I unselect the graph (clicking ouside the graph) then code runs fine.

What can I put in the code to make sure the graphs are not selected?

 

[Jim Thomlinson]

When the graph is selected there is no activesheet so

if activesheet is nothing then
msgbox "Sorry... Please de-select the graph before continuing..."
else
columns("B").Select

 

[Scott]

So I guess this line which is before doesnt mean anything when the chart is
selected

Sheets("XYZ").Select

BTW the error message is

Run-time error "1004"
Method 'Columns' of object '_Global' failed

 

[Jim Thomlinson]

Sorry... Not ActiveSheet. Should be ActiveCell.

Try this perhaps (I dont't tend to select things in my macros as you really
don't need to so this is just a guess)

Activesheet.Columns("B").select

Otherwise if you want to post your code we could probalby get rid of the
selects and get around this whole mess.

 

[Peter T]

Try this -

If Not ActiveChart Is Nothing Then
If TypeName(ActiveChart.Parent) <> "ChartObject" Then
Windows(2).Activate
End If
End If

Columns("B:B").Select

Tut tut though, shouldn't be select'ing anyway <g>

Regards,
Peter T

 

[Andy Pope]

Hi,

Range("B1").EntireColumn.select

Cheers
Andy

This code fails if a graph on the same sheet is selected (clicking inside the
graph)

Columns("B:B").Select

If I unselect the graph (clicking ouside the graph) then code runs fine.

What can I put in the code to make sure the graphs are not selected?

 

[Scott]

Being new to VBA programming I thought you had to select the sheet and select
the cells before performing any operation on them. Your suggestion
"Activesheet.Columns("B").select" worked. Thanks. Guess I still have a lot
to learn about VBA.