Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Call RemoveToolbar
End Sub

Private Sub Workbook_Open()
    On Error Resume Next
    Call RemoveToolbar
    Call CreateToolbar
End Sub

Sub CreateToolbar()
    Dim Tbar As CommandBar
    Dim NewBtn As CommandBarButton
    Application.ScreenUpdating = False
    Set Tbar = CommandBars.Add
    With Tbar
        .Name = "Мои макросы"
        .Visible = True
        .Left = 0
        .Top = 0
        .Position = 0
    End With
        
        Set NewBtn = CommandBars("Мои макросы").Controls.Add(Type:=msoControlButton)
        With NewBtn
            .FaceId = 1795
            .OnAction = "XlsToDbf"
            .Caption = "CSV в DBF"
            .Enabled = True
        End With
        
    Application.ScreenUpdating = True
End Sub

Sub RemoveToolbar()
    On Error Resume Next
    CommandBars("Мои макросы").Delete
End Sub

Cells.Replace What:="І", Replacement:="I", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="і", Replacement:="i", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="•", Replacement:="i", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False