Public Sub Workbook_Open()
...

' инициализация
SetCurrentName( ... )

' всё показывается правильно!
MsgBox ("Workbook_Open(). CurrentName = " & CurrentName)

Что такое "Option Explicit" ?

 With OracleButton
  .caption = "Скопировать Oracle"
  .TooltipText = "Заполнить лист Oracle"
  .Style = msoButtonIconAndCaption
  .OnAction = "CopyToOracle"
 End With

Option Explicit
Option Base  1 


Public Sub Workbook_Open()
...

Type TAutoFilterInfo
  SheetName As String
  IsOn As Boolean
  FiltRange As String
  filterArray() As Variant
End Type

Public CurrentName As String 


Sub ApplicationBeginUpdate()
'Application.BeginUpdate()
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Interactive = False
  Application.UserControl = False
  Application.Calculation = xlCalculationManual
End Sub

Sub ApplicationEndUpdate()
'Application.EndUpdate()
  Application.EnableEvents = True
  Application.Interactive = True
  Application.UserControl = True
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
End Sub



Sub BeginAutoFilter(ByVal SheetName As String, ByRef Info As TAutoFilterInfo)

Dim w As Worksheet
  
  Set w = Worksheets(SheetName)
  Info.SheetName = SheetName
  Info.IsOn = False
  
  Set w = Worksheets(SheetName)
  If (IsEmpty(w.AutoFilter)) Then
    Exit Sub
  End If
...

Sub SetCurrentName(ByVal TableName As String)

CurrentName = TableName
'MsgBox ("SetCurrentName(). CurrentName = " & CurrentName)
Application.CommandBars("Для таблиц").Enabled = (TableName <> "")

End Sub

'+=======================================================================+
'|   Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA      |
'|                 All rights reserved.                                  |
'+=======================================================================+
'Generated:BneOAExcel: Release $Revision: 115.201.1013.27 $ - on Tue Nov 18 10:57:19 2008
Option Explicit
Option Base  1 

Public Sub Workbook_Open()
...
'определение текущей таблицы (для кнопок)
Str = ThisWorkbook.ActiveSheet.name
Str = Left(Str,  1 )
If (Str = "1") Or (Str = "2") Or (Str = "3") Or (Str = "4") Then
  Str = "Table" + Str
Else
  Str = ""
End If
SetCurrentName (Str)

'MsgBox ("Workbook_Open(). CurrentName = " & CurrentName)
...