Sub Del()
Dim e As String
Dim DS, R, C, DelCount As Long
Dim usl, Wh As Byte
Application.ScreenUpdating = False
usl = 33  
For Wh = 1 To Sheets.Count
With Worksheets(Wh)
   LastRow = Cells.SpecialCells(xlLastCell).Row
   LastCol = Cells.SpecialCells(xlLastCell).Column
     DelCount = 0
     For C = 1 To LastCol
            For R = LastRow To 1 Step -1
            e = Cells(R, C).Value
            DS = CStr(Len(e))
                If DS > usl Then
                Cells(R, C).Delete Shift:=xlUp
                DelCount = DelCount + 1
                End If
            Next R
     Next C
     MsgBox "На листе " & Chr(34) & Worksheets(Wh).Name & Chr(34) & " удалено " & DelCount & " ячеек с количеством знаков более " & usl
End With
Next Wh
Application.ScreenUpdating = True
End Sub

Sub Del()
Dim DS, R, C, DelCount As Long
Dim usl, Wh As Byte
Application.ScreenUpdating = False
On Error Resume Next
usl = 33
DelCount = 0
For Wh = 1 To Sheets.Count
Worksheets(Wh).Activate
LastRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
         SearchDirection:=xlPrevious, LookIn:=xlValues).Row
             For R = LastRow To 1 Step -1
             e = Cells(R, 2).Value
             DS = Len(e)
                 If DS > usl Then
                 Cells(R, 2).Delete Shift:=xlUp
                 DelCount = DelCount + 1
                 End If
             Next R
Next Wh
MsgBox "Всего " & "удалено " & DelCount & " ячеек с количеством знаков более " & usl
Application.ScreenUpdating = True
End Sub