Use Like

Also there is no need for the If:

Worksheets("Customer Report").Rows("22").EntireRow.Hidden = Worksheets("input").Range("B31").Value Like "*TEXT" Worksheets("Customer Report").Rows("23").EntireRow.Hidden = Not Worksheets("input").Range("B31").Value Like "*TEXT" 

We can lessen the amount of duplicate typing further:

Dim rng As Range Set rng = Worksheets("input").Range("B31") With Worksheets("Customer Report") .Rows("22").EntireRow.Hidden = rng.Value Like "*TEXT" .Rows("23").EntireRow.Hidden = Not rng.Value Like "*TEXT" End With 

Use Like with * as the wildcard.

Worksheets("input").Range("B31").Value Like "*TEXT"

Also there is no need for the If. We can simply do the test.

Rows().Hidden = 1 = 1

The 1=1 will resolve to true and the row will be hidden.

Also Rows().EntireRow is redundant.

Worksheets("Customer Report").Rows("22").Hidden = Worksheets("input").Range("B31").Value Like "*TEXT" Worksheets("Customer Report").Rows("23").Hidden = Not Worksheets("input").Range("B31").Value Like "*TEXT" 

We can lessen the amount of duplicate typing further:

Dim rng As Range Set rng = Worksheets("input").Range("B31") With Worksheets("Customer Report") .Rows("22").Hidden = rng.Value Like "*TEXT" .Rows("23").Hidden = Not rng.Value Like "*TEXT" End With