VBA MsgBox with vbYes and vbNo

Hi

Using this code:

Private Sub Workbook_Open()

' Set Up  popups for action on current days(s)

Dim bottomO As Integer
    Sheets("ListOfSites").Select
    bottomO = Range("O" & Rows.Count).End(xlUp).Row
        Dim c As Range
    For Each c In Range("O11:O" & bottomO)
        If c >= Date And c <= Date + 3 Then
                                                
        MsgBox " Action TODAY :  " & c.Offset(0, -11) & c.Offset(0, -1), vbExclamation + vbYesNo
        
                   End If
    Next c

'Set to open Homepage

Application.ScreenUpdating = False

Worksheets("Home").Activate

Application.ScreenUpdating = True
End Sub

In an openwork book event, and selects a date with some text and y/ n options.
Works ok. But now I want to when the 'No' is selected it opens a userform allowing user to place a number in an offset of the cell currently in focus. That is the cell that had the date in, which the code selected, is the same cell that will be entered, with an offset (say left 1col 0 -1) by the userform.


How do I retain the focus from the Msg box into the userform, and with offset. or in the userform vba how do I get it to focus on the same cell as per the msgbox?

Thankyou
CharlesHarris

MsgBoxInputBox.xls



HI and thanks TMS

Have attached a sample workbook to better explain what I am tryding to do.

In column O the user places a date via a userform, then the mssgbox selects a date with yes/no options. If yes, close mssgbox, if no, user asked on userform1 to put how many more days until message to appear.See wb and VBA. One small proble, see worksheet, best way to have the date changed in the Col O - by function or vba.

Thankyou

Charles

Hi
An update on my code:

Sub test()
Private Sub Workbook_Open()

' Set Up  popups for action on current days(s)

Dim bottomO As Integer
    Sheets("ListOfSites").Select
    bottomO = Range("O" & Rows.Count).End(xlUp).Row
        Dim c As Range
    For Each c In Range("O11:O" & bottomO)
        If c >= Date And c <= Date + 3 Then
                                                
        MsgBox " Action TODAY :  " & c.Offset(0, -11) & c.Offset(0, -1), vbExclamation + vbYesNo
        
                    End If
    Next c

If MsgBox(“ Action TODAY :  ”, vbExclamation + vbYesNo) = vbNo

Then Call "Userform1"

If response = vbYes Then Exit Sub

End If

End If


'Set to open Homepage

Application.ScreenUpdating = False

Worksheets("Home").Activate

Application.ScreenUpdating = True

End Sub

Thanks
Charles