default antwoord msgbox "nee"

[popipipo]

Via dubbelklikken krijg ik een paraaf in een cel(username)
Staat er al een paraaf dan komt er een msgbox met daarin de vraag ja of nee wijzigen.
Default antwoord is daarbij "ja".
Kan dit default antwoord "nee" worden?

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    
    If Not Intersect(Target, ActiveSheet.Range("unaam")) Is Nothing Then
         If Target.Value = "" Then
            With ActiveCell
              .Value = Environ("username")
              .Font.Name = "Verdana"
            .Font.Size = 12
           Target.Offset(1, 0).Select
            End With
         Else
         
         
  response = MsgBox("Wilt u de paraaf echt wijzigen?", vbYesNo, Title:="Paraaf wijzigen!")
    If response = vbNo Then
        Target.Offset(1, 0).Select
Exit Sub
   
       Else
          With ActiveCell
              .Value = Environ("username")
              .Font.Name = "Verdana"
            .Font.Size = 12
           Target.Offset(1, 0).Select
            End With
    End If
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=False
    Application.ScreenUpdating = True
End If
End If

End Sub

 

[Thankyou]

Uit Help van VBA:
Style = vbYesNo + vbDefaultButton2

Misschien helpt het...

Succes,

 

[popipipo]

De regel veranderd in

  response = MsgBox("Wilt u de paraaf echt wijzigen?", vbYesNo + vbDefaultButton2, Title:="Paraaf wijzigen!")

En het werkt
Dank voor het snelle antwoord