DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Sub Sil()
Dim x As Integer, sor As Object
sor = InputBox("", "", "Değiştir")
For x = 1 To Worksheets.Count
Sheets(x).Cells.Replace "188266", sor, xlPart, xlByRows
Next x
End Sub