Sub set()
Set myActiveCell = ActiveCell
Set myActiveWorksheet = ActiveSheet
Set myActiveWorkbook = ActiveWorkbook
'take actions here
myActiveWorkbook.Activate
myActiveWorksheet.Activate
myActiveCell.Activate
End Sub