Public Sub Test()
Dim SR As Integer
Dim ER As Integer
Dim SC As Integer
Dim EC As Integer
Dim RowVar As Integer
Dim ColVar As Integer
Dim found As Boolean
 
'Change the indexes for your own Row range from 1 to 65536
SR = 1
ER = 20
'Change the indexes for your own Column range from 1 to 256 - in English from "A" to "IV"
SC = 1
EC = 10
found = False
For RowVar = SR To ER
For ColVar = SC To EC
If Not found Then 'This ensures that you stop at the first occurrence
If Cells(RowVar, ColVar).Formula = "Angstrom" Then 'This is where your search text goes
Cells(RowVar, ColVar).Select
found = True
End If
End If
Next
Next
End Sub
Set xlApp = Nothing
End Sub

 
      Dim oWB As Workbook
      Dim oSheet As Worksheet
 
      Workbooks.Open Filename:="C:\test.xls"
      Set oWB = ActiveWorkbook
 
      Set oSheet = oWB.Sheets("Sheet1")
      oSheet.Range("a1:a21").Select

Public Sub GetDocumentStr(PartOfFileName, FolderToSearch)
If Right(FolderToSearch, 1) <> "*" Then
    If Right(FolderToSearch, 1) <> "\" Then FolderToSearch = FolderToSearch & "\"
    FolderToSearch = FolderToSearch & "*.*"
End If
 
TFname = Dir(FolderToSearch)
Do While TFname <> ""
    If InStr(1, TFname, PartOfFileName) <> 0 Then
        Exit Do
    End If
    TFname = Dir
Loop
 
If TFname = "" Then
    MsgBox "None Found"
Else
    MsgBox TFname
End If
End Sub

Sub DirLoop()
   Dim MyFile As String, Sep As String, filename1 As String
   filename1 = "H:\2006\Course Description\AIX 5L"
   ' Sets up the variable "MyFile" to be each file in the directory
   ' This example looks for all the files that have an .xls extension.
   ' This can be changed to whatever extension is needed. Also, this
   ' macro searches the current directory. This can be changed to any
   ' directory.
   ' Test for Windows or Macintosh platform. Make the directory request.
   Sep = Application.PathSeparator
   If Sep = "\" Then
      ' Windows platform search syntax.
      MyFile = Dir(filename1 & Sep & "*.doc")
   Else
      ' Macintosh platform search syntax.
      ' MyFile = Dir("", MacID("XLS5"))
   End If
   ' Starts the loop, which will continue until there are no more files
   ' found.
   Do While MyFile <> ""
      ' Displays a message box with the name of the file. This can be
      ' changed to any procedure that would be needed to run on every
      ' file in the directory such as opening each file.
      MsgBox filename1 & Sep & MyFile
      MyFile = Dir()
   Loop
End Sub