Private Sub Workbook_Open()
Const msg As String = 'Please write here your msg instead of this'
Dim ret As Long
ret = MsgBox(msg, vbYesNo + vbQuestion)
If ret = vbYes Then
'Code
MsgBox '[Yes] has been selected'
Else
'Code
MsgBox '[No] has been selected'
End If
End Sub
use user form
Private Sub Workbook() _Open()
MsgBox 'Do you accept the conditions? ', vbYesNo, 'Verifification'
End Sub
This poem has not been translated into any other language yet.
I would like to translate this poem