TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
#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
