As I said, try using the name property of the codename, as in:Sheets(Array(Sheet3.Name, Sheet7.Name, Sheet8.Name)).Select...where Sheet3.Name is "volvo". But if they change the name of theworksheet, the above formula would pick up the new name.