Using CodeName to Move to a Sheet

I need a VBA Code Line that will move me to a Sheet that has the Codename Sheet1.

I have tried various lines of code and including the current code in the attached file nothing works

Please Login or Register  to view this content.

I understand that I do not need to refer to the name of the Workbook as the codename will only work for the workbook it belongs to.

Can someone supply the correct code?

Thanks

Allister