Автоматический запуск VBA при запуске любого Excel

sub test()
    Range("A1:T10000").Select 'Выбираем лист
    Selection.UnMerge 'Делаем unmerge
    Range("C:C,D:D,I:I,K:K,L:L,N:N,O:O,P:P,R:R,T:T,G:G").Select 'выбираем ненужные колонки
    Selection.Delete Shift:=xlToLeft 'Удаляем колонки
end sub

Private Sub Workbook_Open()
Call Test
End Sub

Dim WithEvents app As Application
 
Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
Range("A1:T10000").UnMerge 'Делаем unmerge
Range("C:C,D:D,I:I,K:K,L:L,N:N,O:O,P:P,R:R,T:T,G:G").Delete Shift:=xlToLeft 'Удаляем колонки
End Sub
 
Private Sub Workbook_Open()
Set app = Application
End Sub

Dim WithEvents app As Application
 
Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
If Wb Is Me Then Exit Sub 'Personal не обрабатывать
With Wb.Worksheets(1)
  .Range("A1:T10000").UnMerge 'Делаем unmerge
  .Range("C:C,D:D,I:I,K:K,L:L,N:N,O:O,P:P,R:R,T:T,G:G").Delete Shift:=xlToLeft 'Удаляем колонки
End With
End Sub
 
Private Sub Workbook_Open()
Set app = Application
End Sub