VBA エラーが出たらメッセージを出して正しい処理を促す

Sub 日付加算()

On Error GoTo errorhndler
Dim 加算数 As Integer
加算数 = Split(StrConv(ActiveSheet.Buttons(Application.Caller).Text, vbNarrow), " ")(1)
Debug.Print 加算数
Dim 日付 As String
日付 = Format(Range("入力!B3"), "####/##/##")
Range("入力!B3").Value = Format(DateAdd("d", 加算数, 日付), "yyyymmdd")
日付 = Format(Range("入力!E3"), "####/##/##")
Range("入力!E3").Value = Format(DateAdd("d", 加算数, 日付), "yyyymmdd")
On Error GoTo 0
'加算日数値が確認できない場合はメッセージを出して終了
Exit Sub
errorhndler:
    MsgBox "エラー　" & vbCrLf & "ボタンのテキストを次に変更します" & vbCrLf & vbCrLf & "「日付加算日数　１」"
    ActiveSheet.Buttons(Application.Caller).Text = "日付加算日数　１"
    MsgBox "変更されたボタンのテキストを編集して" & vbCrLf & vbCrLf & "数値を任意に変更します"
    'Resume Next
    Exit Sub

End Sub

VBAでエラー処理を無効にする | ExcelのVBA入門

Sub sample()

    On Error GoTo errorhndler

    Dim i As Integer
    
    i = "VBA"   '①処理
    
    On Error GoTo 0 '④処理
    
    i = "VBA"
    
    MsgBox "変数iは" & i & "です。"
    
    Exit Sub
    
errorhndler:    '②処理

    MsgBox "変数の値が間違っています。"
    
    Resume Next '③処理

End Sub