set row height to zero if the condition satisfy
 

Dear friends,
Please let me know, how to set the row height into zero if the condition
satisfy

set row height to zero if the condition satisfy
 

A macro maybe:-
Sub sonic()
LastrowColA = Range("A65536").End(xlUp).Row
For x = LastrowColA To 1 Step -1
Cells(x, 1).Select
If ActiveCell.Value = "mycriteria" Then
ActiveCell.EntireRow.Hidden = True
End If
Next x
End Sub

Mike


"Rishi P.S." wrote:

Dear friends,
Please let me know, how to set the row height into zero if the condition
satisfy