Return to origin cell at the end of a macro 1

[Guest_imported]

Hello,

I am looking for a way to somehow make to macro remember the cell which was activated when the macro was started and then at the end of some operations make the macro return to it.

Doe anybody know how to do this?

Thanks for ny help!!

Jan

 

[bryanbayfield]

' beginning of macro
dim rem_rng as range
set rem_rng = activesheet.selection

'your code here

' end of your code

rem_rng.select
set rem_rng = nothing
end sub

 

[bryanbayfield]

Forget the above, it'll give you an error!

Dim rem_rng As Range, rem_sht As Worksheet
Set rem_rng = Selection
Set rem_sht = ActiveSheet

' YOUR CODE GOES HERE

rem_sht.Select
rem_rng.Select
Set rem_rng = Nothing
Set rem_sht = Nothing
End Sub

 

[acron]

Are you sure you need to change the active (selected) cell with your code ?

Using VBA code should allow you to carry most if not all operations on cells without actually selecting them. You code should also run faster as a result. For example the following code will color all cells in A1 to B10 red without actually selecting any of them.

Dim rngCell As Range
For Each rngCell In Range("A1:B10&quot
rngCell.Interior.ColorIndex = 3
Next

A.C.