Пример макроса: Активация всех листов по очереди

Sub ForEachSheets()   '' e16
    Dim ws As Worksheet
    For Each ws In Sheets
        ws.Activate
        Debug.Print ws.Name
    Next ws
End Sub

(function() {
    var oSheets = Api.GetSheets();
    oSheets.forEach(function(sheet) {
        sheet.SetActive(true);
    });    
})();