This code worked
Tim: Your code pointed me in the right direction.
This is what worked:
Private Sub FINISH_EDIT_Click()
Dim myrg As Range
Dim opco As String
Rem Define a range of cells to be tested
opco = "EXP"
For j = 1 To 2
If j = 2 Then opco = "GRD"
For i = 1 To 6
Set myrg = Range(opco & i)
For Each cell In myrg
If (cell.Value = "") Then
cell.EntireRow.Hidden = True
Else
cell.EntireRow.Hidden = False
End If
Next cell
Next i
Next j
End Sub[/code]