<div>
I would suggest you to change the code of Unhide as follows. It will unhide all the rows of worksheets. No need to loop through all the rows : <br />
<br />
Sub UnhideRows()<br />
<br />
Dim ws As Worksheet<br />
Dim I As Long<br />
<br />
&nbsp; &nbsp; For I = 1 To 5<br />
&nbsp; &nbsp; &nbsp; &nbsp; Set ws = Worksheets(&quot;Week&quot; &amp;&nbsp;I)<br />
&nbsp; &nbsp; &nbsp; &nbsp; ws.Rows.Hidden = False<br />
&nbsp; &nbsp; Next I<br />
End Sub
</div>


I would suggest you to change the code of Unhide as follows. It will unhide all the rows of worksheets. No need to loop through all the rows :

Sub UnhideRows()

Dim ws As Worksheet
Dim I As Long

    For I = 1 To 5
        Set ws = Worksheets("Week" & I)
        ws.Rows.Hidden = False
    Next I
End Sub

<div>
Hi VipulKadia, <br />
<br />
Need you help. Is that possible to delete all data at &nbsp;Range(&quot;B4:H291&quot;) and color fill? &nbsp;At the same time Wrap text and Center text. Hope you will consider this request.
</div>


Hi VipulKadia,

Need you help. Is that possible to delete all data at  Range("B4:H291") and color fill?  At the same time Wrap text and Center text. Hope you will consider this request.

<div>
Hi VipulKadia,<br />
<br />
Thanks for the help
</div>


<div>
<div class="content wysiwyg-content">
Hi Experts,<br />
<br />
I would like to request Experts help. The attached script has been used to Hide and Unhide rows at Week1 to Week5 Sheets. The macro should be able to display all time value at Column A (00:00 to 23:55) if click the &quot;Unhide&quot; sub, &nbsp;however few rows especially after 23:00 are still hidden. Hope Experts would help to fix this problem. Attached the workbook for Experts perusal.<br />
<a href="https://filedb.experts-exchange.com/incoming/2011/11_w45/519373/Unhide-Rows.xls" target="_blank" class="file-inline" title="xls (304 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Unhide-Rows.xls</a>
</div>
</div>


Unhide-Rows.xls

Hi Experts,

I would like to request Experts help. The attached script has been used to Hide and Unhide rows at Week1 to Week5 Sheets. The macro should be able to display all time value at Column A (00:00 to 23:55) if click the "Unhide" sub,  however few rows especially after 23:00 are still hidden. Hope Experts would help to fix this problem. Attached the workbook for Experts perusal.

Unhide Rows

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.