Anonymní profil Zuzka – Programujte.com

#1 Zuzka
Tak jsem si to nakonec vyřešila a funguje výborně :-)

Sub ZobrazSkryte()

Dim POZICE As String
Dim SEZNAM As String
' je nutné v excelu přes Vzorce - Definované názvy vydefinovat oblast buňek'

For Each cell In Range("SEZNAM")
For Each cell2 In Range("POZICE")
If InStr(1, cell, cell2) <> 0 Then cell.EntireRow.Hidden = False

Next
Next

End Sub