Как сценарий оболочки может знать, что работает в зоне Соляриса?

Вот краткий пример использования массивов для упрощения цикла:

Sub SearchMe()
    Dim searchWords() As String
    searchWords = Split("Name,Surname,LastName,First Name,AnotherName")

    Dim searchRange As Range
    Set searchRange = ThisWorkbook.Sheets("Sheet1").Range("A1:AA1")

    Dim listText As String
    Dim word As String
    For Each word In searchWords
        Dim cell As Range
        For Each cell In searchRange
            If InStr(UCase(cell.Text), UCase(word)) > 0 Then
                listText = listText & vbNewLine & _
                           cell.Address(RowAbsolute:=False, ColumnAbsolute:=False) & _
                           " | " & cell.Value
            End If
        Next cell
        MsgBox listText, vbQuestion, word
    Next word
End Sub