Hvordan får jeg fat i cellen der engang var ActiveCell igen

Nu er jeg ikke vba haj eller noget.
Men hvad med:

Dim firstCell
firstCell = ActiveCell

Dim firstAddress
firstAddress = ActiveCell.Address

Range(firstAddress).activate

Sub retur()
firstAddress = ActiveCell.Address
firstArk = ActiveSheet.Name
'
'do ur stuff
'
Sheets(firstArk).Range(firstAddress).Interior.ColorIndex = 3

'Farvekoder til Interior.Colorindex
      '0        = Tom              1        = Sort
      '2        = Hvid              3        = Rød
      '4        = KnaldGrøn        5        = Blå
      '6        = Gul              7        = Pink
      '8        = Turkis            9        = Rødbrun
      '10        = Grøn            11        = Mørkeblå
      '12        = Olivengul        13        = Violet
      '14        = Blågrøn          15        = Grå 25%
      '16        = Grå 50%          17        = Støvet Blå
      '18        = Blomme          19        = Støvet Lys Gul
      '20        = Blegturkis      21        = Støvet Violet
      '22        = Støvet Lyserød
     
End Sub