Forum Discussion

Iron Contributor

Nov 09, 2018

Solved

yes no Selection button on a msgbox

I have the following code: Private Sub Worksheet_Change(ByVal Target As Range) If Not (Application.Intersect(Range(" U30:U400"), Target) Is Nothing) Then MsgBox "TURN OFF AUTO CALCULATE AFTER ...

Macros and VBA

Greg Bonaparte
Nov 11, 2018
This was perfect! Thank you Wyn.

Wyn Hopkins

MVP

Nov 10, 2018

Hi Greg Bonaparte

Try this...

Private Sub Worksheet_Change(ByVal Target As Range)



If Not (Application.Intersect(Range(" U30:U400"), Target) Is Nothing) Then

    
    
  If MsgBox("HAVE YOU ENTERED ALL 'ADDITIONAL SHARES' ?", vbQuestion + vbYesNo, " U R G E N T A L E R T ") = vbYes Then
  
     Call ManualCalculate
  
  End If
  

End If

End Sub

Greg Bonaparte

Iron Contributor

Nov 11, 2018

This was perfect! Thank you Wyn.