Auswahl, Makro, vielleicht U.. melden???

Private Sub CommandButton15_Click()
Application.ScreenUpdating = False
Range("A3:AD3").Select
Dim s As String
Dim strMsg As String
Dim bytStyle As Byte
Dim strTitle As String
strMsg = vbCr & vbCr & "   Das Makro wird abgebrochen !"
bytStyle = vbOKOnly + vbCritical
strTitle = "Dezenter Hinweis für " & Application.UserName & ":"
s = InputBox(vbCr & vbCr & "Prozentwert nur als Zahl eingeben:" _
& Chr(13) & Chr(13) & "Fahrzeuge mit Boni  >0  also von  1 -  ~  , " _
& Chr(13) & "bitte so eingeben:   >0  " _
& Chr(13) & "(Taste: Shift/Großschreibung    und  die Null = 0" _
& Chr(13) & Chr(13) & "Einzelne Werte,  z.b.   8,0%  =  8  " _
& "eingeben!  ", "Prozente filtern")
If StrPtr(s) = 0 Then
MsgBox "Sie haben ""Abbrechen"" gedrückt !" & strMsg, bytStyle, strTitle
Range("B3").Select
Exit Sub
End If
If s = "" Then
MsgBox "Sie haben keine Eingabe gemacht !" & strMsg, bytStyle, strTitle
Range("B3").Select
Exit Sub
End If
If Left(s, 1) = ">" Or Left(s, 1) = "<" Then
On Error Resume Next
If Application.IsNumber(CDbl(Replace(Replace(s, ">", ""), "<", ""))) = False Then
On Error GoTo 0
MsgBox "Die Eingabe war nicht numerisch !" & strMsg, bytStyle, strTitle
Range("B3").Select
Exit Sub
End If
End If
Range("B3").Select
On Error GoTo 0
s = WorksheetFunction.Substitute(Format(s, "0.0"), ",", ".")
If Not ActiveSheet.AutoFilterMode Then
Range("A3:AD3").AutoFilter
End If
Range("A3:AD3").AutoFilter field:=24, Criteria1:=s
Range("B3").Select
Application.ScreenUpdating = True
End Sub