troubleshooting Question

Get Sheet tab to appear, to Select it.

Avatar of RWayneH
RWayneHFlag for United States of America asked on
VBAMicrosoft ExcelMicrosoft Office
1 Comment1 Solution64 ViewsLast Modified:
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
ASKER CERTIFIED SOLUTION
RWayneH

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 1 Comment.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 1 Comment.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros