Something along these linesPrivate Sub CommandButton1_Click() For Each rw In Range("C2:F21").Rows For Each cll In rw.Cells If cll.Text = TextBox3.Value Then cll.EntireRow.Hidden = False Exit For End If Next cll Next rw End Sub
Something along these linesPrivate Sub CommandButton1_Click() For Each rw In Range("C2:F21").Rows For Each cll In rw.Cells If cll.Text = TextBox3.Value Then cll.EntireRow.Hidden = False Exit For End If Next cll Next rw End Sub
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.