You do NOT have to goto columns d:e to set the column width
Sub widencolumn()
Columns("d:e").ColumnWidth = 40
End Sub

But, to answer your question
Sub goback()
returncell = ActiveCell.Address
Range("a33").Select
MsgBox ActiveCell.Address
Range(returncell).Select
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"loco" wrote in message
...
I am writing a procedure where i am standing in a cell.
Thereafter i shall automatically in the prosedure change the width of
column
D-E from 20 to 40.

Afterwards i want the same cell to be active as it was before i started
the
procedure.

I am using relative reference in the procedure.

Can someone please help me with how i save an cell adrress for reuse
later?