Вопрос по excel(makro- visual basic)

    имеется ехел таблица с несколькими листами и такой код:


    Sub Auto_Open()
    ActiveSheet.Protect userinterfaceonly:=True, Password:="123456"
    ActiveSheet.EnableOutlining = True 'fuer Gliederung
    ActiveSheet.EnableAutoFilter = True 'fuer Autofilter
    End Sub


    при старте ехеля макро запускается только в активном листе, в других его надо екстра запускать.
    можно ли как-то сделать, чтоб сразу во всех листах запускался или к примеру в листе 1, 4, 6?

    В активном листе запускается потому что функция ActiveSheet. Если в листах 1,4,6 (или с именами, если есть) то нужно так