Hide all rows with the same values as hidden rows - excel vba

[CBC]

I have a worksheet of hidden rows that I would like to hide more rows from. The desired function is written as "If a non-hidden rows value (in column C) is equal to the value of any hidden row's column C value, then hide that non-hidden row."

The first function that I wrote (that works to hide rows based on task in column G) is:
Sub HideCompletes()
For Each cell In ActiveSheet.Range("G5:G200")
If cell.Value = "Completed" Or cell.Value = "" Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub

The follow up function and hide I want to do based on those values is the part that I cannot seem to write, this is the very wrong piece I have:
'Column C is full of names, I need to hide the rows with names that match the hidden rows names

Sub RemoveMultipleEntries()
For Each cell.EntireRow.Hidden = True In ActiveSheet.Range("C5:C200")
If cell.EntireRow.Hidden = False And In Range("C5:C200").Value Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub

'I feel as though I need multiple in statements to accomplish this but can not wrap my head around how this needs to be written from the first variable in the for statement.

 

[GWteB]

Something like this perhaps

Sub RemoveMultipleEntries()

    Dim raTmp       As Range
    Dim c           As Range
    Dim i           As Long

    Set raTmp = ActiveSheet.Range("C5:C200")

    For Each c In raTmp
        If c.EntireRow.Hidden = True Then
            For i = 1 To raTmp.Count
                If c.Text = raTmp.Cells(1, i).Text Then
                    If raTmp.Cells(1, i).EntireRow.Hidden = True Then
                        c.EntireRow.Hidden = True
                    End If
                End If
            Next i
        End If
    Next c

End Sub

 

[GWteB]

Sorry, do forget my post #2 because of a moment of inattention ...

Sub RemoveMultipleEntries()

    Dim raTmp       As Range
    Dim c           As Range
    Dim i           As Long

    Set raTmp = ActiveSheet.Range("C5:C200")

    For Each c In raTmp
        If c.EntireRow.Hidden = False Then
            For i = 1 To raTmp.Count
                If c.Text = raTmp.Cells(1, i).Text Then
                    If raTmp.Cells(1, i).EntireRow.Hidden = True Then
                        c.EntireRow.Hidden = True
                    End If
                End If
            Next i
        End If
    Next c
End Sub

 

[CBC]

Thanks for your response GWteB! Sorry for the basic questions, this looks right, but I'm very new to VBA and this isnt working for me for some reason. The values in column C are text, and I saw that you defined i as Long, will that work with text as you've written it? You're far more advanced at this than I, so I'm strill trying to wrap my head around some of the concepts there. Thanks!

 

[GWteB]

In the line

If c.Text = raTmp.Cells(1, i).Text Then

i is the placeholder for a number that can change; it represents a column number......(oops, my 2nd mistake).
Have that said, change those two lines to:

    If c.Text = raTmp.Cells(i,1).Text Then
        If raTmp.Cells(i, 1).EntireRow.Hidden = True Then

 

[CBC]

Ah I see, that makes perfect sense then. I'll have to dive into the why's a little bit more but it works perfectly! Thank you so much!

 

[GWteB]

You are welcome and thanks for letting me know.