set row height to zero if the condition satisfy

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Dear friends,
Please let me know, how to set the row height into 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
 
Back
Top