Hi All,

Is there a simple way to retrive the address of activecell in a sheet which
is not the active sheet?

Thanks,
Stefi

Sub get_it()
Set whereami = ActiveSheet
Sheets("Sheet2").Activate
MsgBox (ActiveCell.Address)
whereami.Activate
End Sub

--
Gary''s Student - gsnu200771

Thanks! I was not specific enough, I hoped that there is a simpler way than
that. I'm satisfied because there is not an additional lack of my knowledge.
Stefi


„Gary''s Studentâ€� ezt Ã*rta:

> Sub get_it()
> Set whereami = ActiveSheet
> Sheets("Sheet2").Activate
> MsgBox (ActiveCell.Address)
> whereami.Activate
> End Sub
>
> --
> Gary''s Student - gsnu200771

Not only

Quite funny and useless Worksheet function:

Function ACEll() As String
Application.Volatile (True)
Dim s As Worksheet
Set s = ActiveSheet
ActiveWorkbook.ActiveSheet.Select
ACEll = ActiveSheet.Name + "!" + ActiveCell.Address()
s.Select
End Function

Try - this really works

Henn

"Stefi" <(E-Mail Removed)> kirjutas sõnumis
news:767B56EC-12AD-47D3-A8A5-(E-Mail Removed)...
> Thanks! I was not specific enough, I hoped that there is a simpler way
> than
> that. I'm satisfied because there is not an additional lack of my
> knowledge.
> Stefi
>
>
> „Gary''s Studentâ€� ezt Ã*rta:
>
>> Sub get_it()
>> Set whereami = ActiveSheet
>> Sheets("Sheet2").Activate
>> MsgBox (ActiveCell.Address)
>> whereami.Activate
>> End Sub
>>
>> --
>> Gary''s Student - gsnu200771

Thanks, Henn, I'll give it a try tomorrow!
Stefi


„Henn Sarvâ€� ezt Ã*rta:

> Not only
>
> Quite funny and useless Worksheet function:
>
> Function ACEll() As String
> Application.Volatile (True)
> Dim s As Worksheet
> Set s = ActiveSheet
> ActiveWorkbook.ActiveSheet.Select
> ACEll = ActiveSheet.Name + "!" + ActiveCell.Address()
> s.Select
> End Function
>
> Try - this really works
>
> Henn
>
> "Stefi" <(E-Mail Removed)> kirjutas sõnumis
> news:767B56EC-12AD-47D3-A8A5-(E-Mail Removed)...
> > Thanks! I was not specific enough, I hoped that there is a simpler way
> > than
> > that. I'm satisfied because there is not an additional lack of my
> > knowledge.
> > Stefi
> >
> >
> > „Gary''s Studentâ€� ezt Ã*rta:
> >
> >> Sub get_it()
> >> Set whereami = ActiveSheet
> >> Sheets("Sheet2").Activate
> >> MsgBox (ActiveCell.Address)
> >> whereami.Activate
> >> End Sub
> >>
> >> --
> >> Gary''s Student - gsnu200771
>
>