Save As referenced sheet hidden

[SCRandby]

My current Save As macro references my sheet named "Summary". If "Summary" is hidden, the macro needs to reference my sheet "Progress". I was wondering if anyone could help me. Thanks in advance!

 

[Barrie Davidson]

Something like?

If Sheets("Summary").Visible = True Then
    'code for Summary sheet
Else
    'code for Progress sheet
End If

Regards,

 

[Smitty]

Something like this maybe:

<font face=tahoma><SPAN style="color:#00007F">Sub</SPAN> foo()
    <SPAN style="color:#00007F">If</SPAN> Sheets("Summary").Visible = <SPAN style="color:#00007F">False</SPAN> <SPAN style="color:#00007F">Then</SPAN>
        <SPAN style="color:#007F00">'   Do something</SPAN>
    Else: <SPAN style="color:#007F00">' Do something else</SPAN>
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Hope that helps,

Smitty