Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

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