Поиск по всем листам

Sub search_main()
Dim rng As Range ' область
Dim name1
    With Worksheets("1 курс")
    Set rng = .Range("D12:X11")
    name1 = Range("D11").Value
For Each cell In rng
If cell = name1 Then
 
MsgBox ("Ошибка")
cell.Interior.Color = RGB(255, 255, 0)
 
End If
 
Next cell
End With
End Sub

Sub search_main()
    Dim sh As Worksheet
    Dim col As Object, arr, el, elel
    'arr = Split("D E G H J K M N")
    arr = Split("F I L O R")
    On Error Resume Next
 
    'For i = 9 To 57 Step 2
    For i = 8 To 56 Step 2
        Set col = New Collection
        For Each sh In Worksheets
            For Each el In arr
                t = sh.Range(el & i).Value
                If Len(t) Then
                    For Each elel In Split(t, "/")
                        col.Add elel, CStr(elel)
                        If Err Then Debug.Print sh.Name & "-" & el & i & "-" & elel: Err.Clear
                    Next
                End If
            Next
        Next
    Next
End Sub

Sub search_main()
    Dim sh As Worksheet
    Dim col As Object, arr, el, elel
    Dim outcol As New Collection
    'arr = Split("D E G H J K M N")
    arr = Split("F I L O R")
    On Error Resume Next
 
    'For i = 9 To 57 Step 2
    For i = 8 To 56 Step 2
        Set col = New Collection
        For Each sh In Worksheets
            For Each el In arr
                t = sh.Range(el & i).Value
                If Len(t) Then
                    For Each elel In Split(t, "/")
                        col.Add elel, CStr(elel)
                        If Err Then outcol.Add sh.Name & "-" & el & i & "-" & elel: Err.Clear
                    Next
                End If
            Next
        Next
    Next
 
    If outcol.Count > 0 Then
        i = 0
        With Workbooks.Add(1).Sheets(1)
            For Each el In outcol
                i = i + 1
                .Cells(i, 1) = el
            Next
        End With
    End If
 
End Sub