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