The code I posted can be used just as easily to activate a sheet - just change:
MsgBox Sheets(v_Sheetname).Range("A1").Value
to:
Sheets(v_Sheetname).Range("A1").Activate
As I said, the issue may well be with what your code returns as the date.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|