UserForm Warning Message Box

[Jan Kalop]

I have UserForm with some coding and would like to add Warning Message Box similar to the one is added in Macros.

The UserForm Code is:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim X As Long

Dim E46 As Range: Set E46 = Range("E46")

If Target.CountLarge > 1 Then Exit Sub

If Not Intersect(Target, E46) Is Nothing Then
Application.ScreenUpdating = False
For X = 48 To 550
If Cells(X, 5).Value = E46.Value Then Cells(X, 4).Resize(, 112).Value = Range("D46:Dk46").Value
Next X

Application.ScreenUpdating = True
Set E46 = Nothing
End If

End Sub

 

[6StringJazzer]

Warning Message Box similar to the one is added in Macros.

Sorry, that does not explain what you need.

What do you want the message box to say? Do you want to give the user options for what to do, or just show a message? Under what condition do you want the message box to appear?

 

[Jan Kalop]

Sorry, that does not explain what you need.

What do you want the message box to say? Do you want to give the user options for what to do, or just show a message? Under what condition do you want the message box to appear?

Very simple "Yes" to confirme the proces or "No" to quit and like this one which I am using inthe Macros......sample
If MsgBox("Click OK to clear", _
vbOKCancel + vbQuestion) = vbCancel Then Exit Sub