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

Public Sub Test2()
   Dim c
 
   For Each c In ActiveSheet.Range("A1:J20")
      If c.Value = "Angstrom" Then 'This is where your search text goes
         c.Select
         Exit For
      End If
   Next
End Sub

Public Sub Test2()
   Dim c
 
   For Each c In ActiveSheet.Range("A1:J300")
      If c.Value = Range("A1") Then 'This is where your search text goes
         c.Select
         Exit For
      End If
   Next
End Sub

Sub TESTING2()
        Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate
End Sub