Hide rows when two cells are blank

Hi all!

I want to hide an entire row, if cell in column B and Column C is blank. I m using the below code but getting an error type Mismatch 13 and highlighting the

lr = Range("REMARKS1")

.

My Data Starts at 190 and ends at 325; hence I am named that range as "Remarks1"

Column C contains formulas.

I am using the below code:

Sub HideBlanks()
Dim lr As Long, i As Long
lr = Range("REMARKS1")
For i = 190 To lr
  ' check B, C, to see if blank
  If Range(Cells(i, "B"), Cells(i, "C")) = "" Then
       Rows(i).Hidden = True 'hide row
    End If
Next i
End Sub

you have defined lr as Long but you have set it equal to a range. That is why you get the error

Still error persits

Using

lr = Range("REMARKS1").Row + Range("REMARKS1").Rows.Count - 1

With lr as Long, I am getting Type Mis-match and highlighting

If Range(Cells(i, "B"), Cells(i, "C")) = "" Then

With lr as Range, I am getting Object Variable or With Block Variable not set and highlighting

lr = Range("REMARKS1").Row + Range("REMARKS1").Rows.Count - 1

I have changed now to

Dim lr As Range, i As Long

Still an error satying Run-time error: 91

Object Variable or With Block Variable not set.

You can use

lr = Range("REMARKS1").Row + Range("REMARKS1").Rows.Count - 1

to get the last row in that named range where lr is still defined as long (or integer).

You cannot use it as a range because For i = .. To... requires 2 integers.

Thank Arkadi.

That helped.