Get Sheet tab to appear, to Select it.

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

Select all Open in new window