VBA изменить активный лист

'assuming "Sheet2" is to be activated
Worksheets("Sheet2").Activate
Cloudy Caterpillar