Set Range for Loop of Rows

[vck2017]

I am trying to set a range for a set of columns (rg2) and rows by using Intersect. The rows are only to be selected for the range where there is a conditional "x" mark in a column. I can not set this loop as a range somehow or include this in the intersect range setting.
I appreciate anyone's advise.

    For Each c In Range(Cells(StartR, 2), Cells(StartR + Size - 1, 2))
    If c = "x" Then Rows(c.Row).Hidden = False
    Next c


    '  Set rg = Range(c.Row)

    Set rg3 = Intersect(c.Row, rg2)

 

[Fluff]

Maybe something like

   Dim Cl As Range, Rng As Range
   For Each Cl In Range("A1:A20")
      If Cl.Value = "x" Then
         Cl.EntireRow.Hidden = False
         If Rng Is Nothing Then Set Rng = Cl Else Set Rng = Union(Rng, Cl)
      End If
   Next Cl
   Set Rng = Intersect(Rng.EntireRow, Range("H:H"))

 

[bobsan42]

Maybe something like this if I understood you correctly:

    set rg2 = nothing
    For Each c In Range(Cells(StartR, 2), Cells(StartR + Size - 1, 2))
    If c = "x" Then 
         Rows(c.Row).Hidden = False
         if not rg2 is nothing then
             set rg2 = Union(rg2, c.EntireRow)
        else
            set rg2 = c.Entirerow
       end if
    end if
    Next c

not tested.

 

[vck2017]

Thank you, that worked!

 

[Fluff]

Glad we could help & thanks for the feedback