Rewrite the code for quicker action

[shaju]

The following code just check for the "zero values" in the specified range, and will hide the "zero valued"row and column.
It is used in the Sheet selection event. Can it be rewritten so that it will run faster
TIA



Sub ShapeIt()

Application.ScreenUpdating = False
Sheet1.Range("B156:IH156").Columns.Hidden = False
Sheet1.Range("B156:IH156").Rows.Hidden = False
Sheet1.Range("B156:IH156").Columns.AutoFit
'On Columns
For Each c In Sheet1.Range("B156:IH156")
If c.Value = 0 Then
c.Columns.Hidden = True
End If
Next c
'On Rows
For Each c In Sheet1.Range("IH5:IH156")
If c.Value = 0 Then
c.Rows.Hidden = True
End If
Next c
Cancel = True
Application.ScreenUpdating = True

End Sub

 

[Rick Rothstein]

What is in the cells you are checking, constants or formulas?

 

[shaju]

The cells I am checking contains formulae.

 

[Rick Rothstein]

I

Sheet1.Range("B156:IH156").Columns.Hidden = False
Sheet1.Range("B156:IH156").Rows.Hidden = False
Sheet1.Range("B156:IH156").Columns.AutoFit
'On Columns
For Each c In Sheet1.Range("B156:IH156")

'On Rows
For Each c In Sheet1.Range("IH5:IH156")

Are you only checking one column (IH) and one row (156) for zeros or are your range designations incorrect in the above parts of your code?

 

[shaju]

I

Are you only checking one column (IH) and one row (156) for zeros or are your range designations incorrect in the above parts of your code?

I am checking values in Only one Column (IH) and One row(156).
Because Formula in IH5 is SUM(B5:IG5), IH6 is SUM(B6:IG6) and so on.
Formula in B156 is Sum(B5:B155),, C156 is Sum(C5:C155) and so on
These two (Col IH and Row 156) are just total of the rows and columns .

 

[shaju]

Bump...