Thread: [Solved] Find replace issues!! Help!!
View Single Post
 
Old 07-03-2012, 07:15 AM
AbeLincolnVampSlayer AbeLincolnVampSlayer is offline Windows 7 64bit Office 2010 64bit
Novice
 
Join Date: Jun 2012
Posts: 3
AbeLincolnVampSlayer is on a distinguished road
Smile Worked!! Thank you

Wow I have a feeling I am behind the times on doing stuff the easy way in excell. I do not know a lot about macros, is there any book or training you could recomend that would get me up to speed?

Thanks a lot!!

Quote:
Originally Posted by macropod View Post
Try the following macro:
Code:
Sub UpdateRefs()
Dim StrFnd As String, StrRep As String
StrFnd = InputBox("Please input the string to FIND for the replacement.", "Find/Replace")
If StrFnd = "" Then Exit Sub
StrRep = InputBox("Please input the string with which to REPLACE the Find String.", "Find/Replace")
With Application
  .DisplayAlerts = False
  .ScreenUpdating = False
  .Calculation = xlManual
  .ActiveSheet.Cells.Replace What:=StrFnd, Replacement:=StrRep, LookAt:=xlPart, _
    SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
  .Calculation = xlAutomatic
  .DisplayAlerts = True
  .ScreenUpdating = True
End With
End Sub
Reply With Quote