If Statements to Unhide Sheets

[b_choplick]

I am writing a macro that checks the value of specific cells on a sheet titled 1-SUMMARY and unhides specific sheets if the value of the cell is greater than $0.00.

 

[JackDanIce]

Can't see anything obvious in your code that causes the error, I'd check the sheet names match your code exactly, usually a typo causes problems. Here's how I'd write your code, it may or may not work. Also, what sheet is Range("C10") etc on? It's not clear from your code if it's the activesheet and that too may cause a problem. Change the part in red for whatever sheet contains Range("C10")

Sub GenerateLOA_v1()

Dim ws As Worksheet

Application.ScreenUpdating = False

For Each ws In Worksheets
    Select Case ws.Name
        Case "LOA", "Cover Letter", "W-9", "T&C", "Exhibit A Cover", "1-SUMMARY"
            ws.Visible = True
        Case Else
            ws.Visible = False
    End Select
Next ws

With Sheets("1-SUMMARY")
  If .Range("C10").Value > 0 Then Sheets("Exhibit A DwellLighting").Visible = True
  If .Range("C11").Value > 0 Then Sheets("Exhibit A ExtLighting").Visible = True
  If .Range("C12").Value > 0 Or .Range("C13").Value > 0 Or .Range("C26").Value > 0 Or .Range("C38").Value > 0 Then _
    Sheets("Exhibit A Weatherization").Visible = True
  If .Range("C15").Value > 0 Then Sheets("Exhibit A Refrigerator").Visible = True
  If .Range("C18").Value > 0 Or .Range("C19").Value > 0 Or .Range("C29").Value > 0 Or .Range("C41").Value > 0 Then _
    Sheets("Exhibit A Windows").Visible = True
  If Activesheet.Name <> .Name Then .Select
End With

Application.ScreenUpdating = True

End Sub