try this idea

Sub gobacktocell()
Dim myadd As String
mysht = ActiveSheet.Name
myrng = ActiveCell.Address
Application.Goto Sheets("sheet4").Range("a1")
MsgBox "hi"
Application.Goto Sheets(mysht).Range(myrng)
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"SpeeD" wrote in message
...
Hi.

I need to determine the activecell at some point and move to it after
other
sub as run. how can i do this? i´ve tried the following without success...

r = ActiveCell.Row
c = ActiveCell.Column


Run "Formatar_fundo_original"
Range(c & r).Select

Thanks
SpeeD