I am trying to activate the previous sheet in my code. My macro does
some code from the current sheet but then needs to pull some
information from the previous sheet. I get an error when I insert the
line
ActiveSheet.Previous.Select
Is this not correct?

It worked for me. What error did you get?

"(E-Mail Removed)" wrote:

> I am trying to activate the previous sheet in my code. My macro does
> some code from the current sheet but then needs to pull some
> information from the previous sheet. I get an error when I insert the
> line
> ActiveSheet.Previous.Select
> Is this not correct?
>

On Nov 25, 3:37 pm, JLGWhiz <JLGW...@discussions.microsoft.com> wrote:
> It worked for me. What error did you get?
>
> "bramniz...@gmail.com" wrote:
> > I am trying to activate the previous sheet in my code. My macro does
> > some code from the current sheet but then needs to pull some
> > information from the previous sheet. I get an error when I insert the
> > line
> > ActiveSheet.Previous.Select
> > Is this not correct?

I changed things around...I think it is because my previous sheet was
hidden.

On Nov 25, 3:37 pm, JLGWhiz <JLGW...@discussions.microsoft.com> wrote:
> It worked for me. What error did you get?
>
> "bramniz...@gmail.com" wrote:
> > I am trying to activate the previous sheet in my code. My macro does
> > some code from the current sheet but then needs to pull some
> > information from the previous sheet. I get an error when I insert the
> > line
> > ActiveSheet.Previous.Select
> > Is this not correct?

The previous sheet was a hidden sheet. I think that is why it would
not work. I inserted
ActiveSheet.Previous.Visible = True
ActiveSheet.Previous.Select
and I didn't get an error...however, my code did not do what I wanted
it to. Back to the drawing board!

First, you don't usually have to .select or .activate a sheet to work on it.

But this may do what you want:

Option Explicit
Sub testme()
Dim sCtr As Long
Dim FoundIt As Boolean
FoundIt = False
For sCtr = ActiveSheet.Index - 1 To 1 Step -1
If Sheets(sCtr).Visible = True Then
Sheets(sCtr).Select
FoundIt = True
Exit For
End If
Next sCtr

If FoundIt = False Then
MsgBox "Error showing previous sheet"
End If
End Sub



(E-Mail Removed) wrote:
>
> On Nov 25, 3:37 pm, JLGWhiz <JLGW...@discussions.microsoft.com> wrote:
> > It worked for me. What error did you get?
> >
> > "bramniz...@gmail.com" wrote:
> > > I am trying to activate the previous sheet in my code. My macro does
> > > some code from the current sheet but then needs to pull some
> > > information from the previous sheet. I get an error when I insert the
> > > line
> > > ActiveSheet.Previous.Select
> > > Is this not correct?
>
> The previous sheet was a hidden sheet. I think that is why it would
> not work. I inserted
> ActiveSheet.Previous.Visible = True
> ActiveSheet.Previous.Select
> and I didn't get an error...however, my code did not do what I wanted
> it to. Back to the drawing board!

--

Dave Peterson