Sub aa()
Dim tablica(), i As Long
tablica = Range("zakres")

For i = 1 To UBound(tablica) 'zakładam w tej chwili jednowymiarową tablicę
'jakiś kod MsgBox tablica(i, 1)
Next i

End Sub

Sub FRAGMENT_TXT()
Dim Z As String
Dim znaleziona As Range, adres As String

Z = InputBox("Wpisz ciąg znaków")
With Sheets(1).Range("Zakres")
Set znaleziona = .Find(Z, after:=.Cells(.Rows.Count, .Columns.Count), LookIn:=xlValues, LookAt:=xlPart, MatchCase:=True)

    If Not znaleziona Is Nothing Then
        adres = znaleziona.Address
        Do
            MsgBox "Znaleziono w " & znaleziona.Address

            Set znaleziona = .FindNext(znaleziona)
        Loop While Not znaleziona Is Nothing And znaleziona.Address <> adres
    End If
End With

End Sub

Sub FRAGMENT_TXT()
Dim Z As String
Dim komorka As Range

Z = InputBox("Wpisz ciąg znaków")

For Each komorka In Range("Zakres")
 If InStr(1, komorka, Z) Then
 MsgBox "Znaleziono w " & komorka.Address
 End If
Next

End Sub

Sub FRAGMENT_TXT()
Dim Z As String
Dim komorka As Range

Application.ScreenUpdating = False

Z = InputBox("Wpisz ciąg znaków")

For Each komorka In Range("Zakres")
 'If w zawartości komorki znajdzisz "Z" Then
  'coś tam
 'End If
Next

End Sub