Find & Replace All Sheets Using VBA

Replace by 'xlwhole' 'xlpart'

You’re welcome,

Make sure columns B not blank cells in it.
Otherwise columns A will be a blank cell to.
Change the code to overcome.

Sub hsv()
Dim sh As Worksheet, i As Long
 For Each sh In ThisWorkbook.Worksheets
   For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If sh.Cells(i, 2) > 0 Then
     sh.Cells.Replace sh.Cells(i, 1), sh.Cells(i, 2), xlPart, xlByRows, , False, False, False
    End If
   Next i
 Next sh
End Sub