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