Copy this programming code below to paste into the Unhide All Sheets macro described during my presentation:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
'Declares worksheet variable Dim s as Worksheet 'Loop through each worksheet in the workbook For each s in Worksheets 'Sets the Visible property for each to worksheet to True (the Visible property is set to False when a worksheet is hidden) s.Visible=True 'Loop to next worksheet Next 'Notify user that the macro is complete Msgbox "All worksheets in this workbook have been unhidden.", vbInformation, "All Worksheets Unhidden" |
