Get Sheet tab to appear, to Select it.

RWayneH
RWayneH used Ask the Experts™
Hello, I am having an issue with Ln 5 and 6.  The sheet name is not one of the ones that I want to leave alone.  Issue is Unable to set the Visible property of the worksheet class?
Any ideas?  Please advise and thanks.


Do 
        n = n + 1
        If Worksheets(n).Name <> "Budget Items" And Worksheets(n).Name <> "MasterPrimaryDepositAccount" And Worksheets(n).Name <> "DefaultAccountPg" And Worksheets(n).Name <> "BudgetSummaryPg" Then
           CurrentSheetTab = Worksheets(n).Name
           Sheets(CurrentSheetTab).Visible = True
           Sheets(CurrentSheetTab).Select
           Range("G4").Select
           CurrBal = ActiveCell.Value
           Sheets("BudgetSummaryPg").Select
           Range("A5").Select
           Do While Not ActiveCell = ""
                If ActiveCell = CurrentSheetTab Then
                    ActiveCell.Offset(0, 3).Select
                    ActiveCell.Value = CurrBal
                    Sheets(CurrentSheetTab).Select
                    Sheets(CurrentSheetTab).Visible = False
                    Exit Do
                Else
                    ActiveCell.Offset(1, 0).Select
                End If
            Loop
        End If
    Loop Until n = Worksheets.Count

Open in new window

Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
For some reason it started working, sorry for the false alarm.

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial