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?

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
--
HTH...

Jim Thomlinson


"Scott" wrote:

> 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?
>

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" wrote:

> 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
> --
> HTH...
>
> Jim Thomlinson
>
>
> "Scott" wrote:
>
> > 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?
> >

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.
--
HTH...

Jim Thomlinson


"Scott" wrote:

> 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" wrote:
>
> > 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
> > --
> > HTH...
> >
> > Jim Thomlinson
> >
> >
> > "Scott" wrote:
> >
> > > 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?
> > >

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


"Scott" <(E-Mail Removed)> wrote in message
news:23CFE9C2-9DCF-47A7-8F77-(E-Mail Removed)...
> 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?
>

Hi,

Range("B1").EntireColumn.select

Cheers
Andy

Scott wrote:
> 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?
>

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info

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.

"Jim Thomlinson" wrote:

> 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.
> --
> HTH...
>
> Jim Thomlinson
>
>
> "Scott" wrote:
>
> > 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" wrote:
> >
> > > 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
> > > --
> > > HTH...
> > >
> > > Jim Thomlinson
> > >
> > >
> > > "Scott" wrote:
> > >
> > > > 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?
> > > >