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