Left = Application.Left + 200 '.Position = msoBarBottom. ![]() ![]() Top = Application.Top + Application.Height + 500. Protection = msoBarNoCustomize '.Position = msoBarFloating. AddItem sht.Name End If Next sht For Each sht In Application.Charts If sht.Visible = xlSheetVisible Then. OnAction = "Sheet_Navigate" For Each sht In Application.Worksheets If sht.Visible = xlSheetVisible Then. 'code for the command bar: Sub Sheets_Control() On Error Resume Next Application.CommandBars("Navigate Sheets").Delete On Error GoTo 0 Dim sht As Object With ("Navigate Sheets",, False, True) With. I wrote a custom command bar to navigate sheets more easily, but when I try to execute the code, if the sheet to select has Sheet_Activate code it just won't select it! Any ideas? (Thanks!!)
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |