Hello,
I hope everyone is well, thanks in advance for your support.
Here is my question...
I have a macro that unhides rows, the same rows in multiple worksheets. I created the macro below to run each of the above macros so that with one macro all the rows get unhidden in all the sheets. However, I get an error: Unable to set the Hidden property of the Range class.
How do I fix this? Thanks again!
Macro:
Sub ALLSLA()
CMGSLA.CMGSLA
COLSLA.COLSLA
COSDSLA.COSDSLA
EDSLA.EDSLA
EPGSLA.EPGSLA
ESMDSLA.ESMDSLA
FINSLA.FINSLA
HRSLA.HRSLA
LCASLA.LCASLA
MBDSLA.MBDSLA
MEGSLA.MEGSLA
MSITSLA.MSITSLA
MSRSLA.MSRSLA
OEMSLA.OEMSLA
OSGSLA.OSGSLA
PSDFINSLA.PSDFINSLA
SANDMSLA.SANDMSLA
SEARCHSLA.SEARCHSLA
SMSPSLA.SMSPSLA
STBSLA.STBSLA
USCORPSLA.USCORPSLA
VALERBSLA.VALERBSLA
WEXSLA.WEXSLA
WINCLISLA.WINCLISLA
WLPSLA.WLPSLA
WLXSLA.WLXSLA
End Sub
Here is one of the macros above, they are all the same except for the sheet name:
Sub CMGSLA()
'
' CMG MARKETING SLA (shows) Macro
'
Application.ScreenUpdating = False
Sheets("CMG MARKETING").Unprotect
Rows("55:56").Select
Selection.EntireRow.Hidden = False
Rows("58:59").Select
Selection.EntireRow.Hidden = False
Rows("62:63").Select
Selection.EntireRow.Hidden = False
Rows("65:66").Select
Selection.EntireRow.Hidden = False
Rows("69:70").Select
Selection.EntireRow.Hidden = False
Rows("72:73").Select
Selection.EntireRow.Hidden = False
Rows("76:77").Select
Selection.EntireRow.Hidden = False
Rows("79:80").Select
Selection.EntireRow.Hidden = False
Rows("83:84").Select
Selection.EntireRow.Hidden = False
Rows("86:87").Select
Selection.EntireRow.Hidden = False
Sheets("CMG MARKETING").Protect
Range("A16").Select
Application.ScreenUpdating = False
End Sub
I hope everyone is well, thanks in advance for your support.
Here is my question...
I have a macro that unhides rows, the same rows in multiple worksheets. I created the macro below to run each of the above macros so that with one macro all the rows get unhidden in all the sheets. However, I get an error: Unable to set the Hidden property of the Range class.
How do I fix this? Thanks again!
Macro:
Sub ALLSLA()
CMGSLA.CMGSLA
COLSLA.COLSLA
COSDSLA.COSDSLA
EDSLA.EDSLA
EPGSLA.EPGSLA
ESMDSLA.ESMDSLA
FINSLA.FINSLA
HRSLA.HRSLA
LCASLA.LCASLA
MBDSLA.MBDSLA
MEGSLA.MEGSLA
MSITSLA.MSITSLA
MSRSLA.MSRSLA
OEMSLA.OEMSLA
OSGSLA.OSGSLA
PSDFINSLA.PSDFINSLA
SANDMSLA.SANDMSLA
SEARCHSLA.SEARCHSLA
SMSPSLA.SMSPSLA
STBSLA.STBSLA
USCORPSLA.USCORPSLA
VALERBSLA.VALERBSLA
WEXSLA.WEXSLA
WINCLISLA.WINCLISLA
WLPSLA.WLPSLA
WLXSLA.WLXSLA
End Sub
Here is one of the macros above, they are all the same except for the sheet name:
Sub CMGSLA()
'
' CMG MARKETING SLA (shows) Macro
'
Application.ScreenUpdating = False
Sheets("CMG MARKETING").Unprotect
Rows("55:56").Select
Selection.EntireRow.Hidden = False
Rows("58:59").Select
Selection.EntireRow.Hidden = False
Rows("62:63").Select
Selection.EntireRow.Hidden = False
Rows("65:66").Select
Selection.EntireRow.Hidden = False
Rows("69:70").Select
Selection.EntireRow.Hidden = False
Rows("72:73").Select
Selection.EntireRow.Hidden = False
Rows("76:77").Select
Selection.EntireRow.Hidden = False
Rows("79:80").Select
Selection.EntireRow.Hidden = False
Rows("83:84").Select
Selection.EntireRow.Hidden = False
Rows("86:87").Select
Selection.EntireRow.Hidden = False
Sheets("CMG MARKETING").Protect
Range("A16").Select
Application.ScreenUpdating = False
End Sub