help with switching between worksheets

[MartinL]

I am trying to get back to a worksheet

My code goes along the lines of

Dim ThisWeekSheet As String
ThisWeekSheet = ActiveSheet.Name
Sheets("DATA_FEED").Select
Call another_function
'goback to original worksheet
ActiveSheet = Worksheets(ThisWeekSheet)

but falls at the ActiveSheet = Worksheets(ThisWeekSheet) bit
how can i make this the active sheet again?

Martin

 

[VoG]

Try

Dim ThisWeekSheet As String
ThisWeekSheet = ActiveSheet.Name
Sheets("DATA_FEED").Select
Call another_function
'goback to original worksheet
Worksheets(ThisWeekSheet).Select

 

[MartinL]

so close and yet ....
Thanks Peter