Forms VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Forms
  4. Working with Find and Replace
Sub cell()
    Cells.Find(What:="2008", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        True, SearchFormat:=False).Activate
End Sub