Find and Replace in multiple sheets

Hi All,

Since this forum has been great help to me so far, I thought I would post again! I am in need of help for search and replace.

I need to go through cells F3 to U50 on each of my 30 sheets skipping the first sheet, find a certain string (example TI.A or TIA) and replace with another string (example TI/A). I need to do this for about 30 worksheets in a workbook, so I am assuming this will be a for loop?

Thanks for all your help!

ind

Hello ExcelNewbie 05,

This macro replaces TI.A and TIA with TI/A excpet for "Sheet1". You may need to change this sheet name in the code to match the sheet you want to skip. Place this code in a Standard VBA module.

Sub ReplaceAll()

  Dim Wks As Worksheet
  
    For Each Wks In Worksheets
      If Wks.Name <> "Sheet1" Then
         Wks.UsedRange.Replace _
           What:="TIA", Replacement:="TI/A", _
           SearchOrder:=xlByColumns, MatchCase:=True
         Wks.UsedRange.Replace _
           What:="TI.A", Replacement:="TI/A", _
           SearchOrder:=xlByColumns, MatchCase:=True
      End If
    Next Wks
    
End Sub

Sincerely,
Leith Ross