Hey Thanks Sam It's working..
*
*
*Regards,*
*Jocky*
On Mon, Nov 14, 2011 at 8:30 PM, Sam Mathai Chacko wrote:
> Use this code in Sheet1 VBA code module
>
> Private Sub CommandButton1_Click()
> ActiveSheet.Range("B4:B32").EntireRow.Hidden = Not
> ActiveSheet.Range("B4:B32").EntireRow
Use this code in Sheet1 VBA code module
Private Sub CommandButton1_Click()
ActiveSheet.Range("B4:B32").EntireRow.Hidden = Not
ActiveSheet.Range("B4:B32").EntireRow.Hidden
End Sub
Private Sub CommandButton2_Click()
ActiveSheet.Range("B35:B50").EntireRow.Hidden = Not
ActiveSheet.Range("B35: