а мне дали файл на 52 листа
Sub delete_percentage()
Dim CELL As Range
Dim AREA As Range
Dim SHEET As Worksheet
Set AREA = Range("A1:W100")
On Error Resume Next
For Each SHEET In ActiveWorkbook.Worksheets
On Error GoTo FINISH
For Each CELL In AREA
Range("A1:W100").Find("%").Select
Selection.Delete (xlToLeft)
Next CELL
FINISH:
Next SHEET
End Sub