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