address of activecell in another sheet
 

Hi All,

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

Thanks,
Stefi

address of activecell in another sheet
 

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

--
Gary''s Student - gsnu200771

address of activecell in another sheet
 

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

address of activecell in another sheet
 

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" kirjutas sõnumis
...
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

address of activecell in another sheet
 

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" kirjutas sõnumis
...
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