Create an Outlook reminder when I enter a date in Excel

[AmalH]

I don't work with VB code but if that is the only way I'll Google a youtube video to see how to do it . I have a date in cell C2 in Excel 2010. When I enter that date and hit Enter I want Outlook 2010 to open and create a new Reminder for that date. The subject would be the text in cell A2. The body of the reminder would be the same text always, "If approved Register this trial today". I would like to do this for every row in which I place a date in Column C. Thank you in advance for your advice. My OS is Windows 7. ( I entered a comment on a similar post "Create Outlook reminder from a date generated by a formula" by
Mari_Fec on Dec 23, 2015 but no response. It could be that the topic is closed.)

 

[mrmmickle1]

Try something like this:

[COLOR=#0000ff][B]Private Sub[/B][/COLOR] Worksheet_Change([B][COLOR=#0000ff]ByVal[/COLOR][/B] Target [B][COLOR=#0000ff]As[/COLOR][/B] Range)

   [COLOR=#0000ff][B] Dim[/B][/COLOR] OutlookApp [B][COLOR=#0000ff]As [/COLOR][/B]Object

  [COLOR=#0000ff][B]  If[/B][/COLOR] Target.Column = 3 [B][COLOR=#0000ff]And[/COLOR][/B] Target.Row = 2 [B][COLOR=#0000ff]Then[/COLOR][/B] [COLOR=#008000][B]'If cell C2 is selected then....[/B][/COLOR]
    
        [COLOR=#0000ff][B]Set[/B][/COLOR] OutlookApp = CreateObject("Outlook.Application")
        
      [COLOR=#0000ff][B]  With[/B] [/COLOR]OutlookApp.CreateItem(3)
            .Subject = Range("A2").Value
            .Body = "If approved Register this trial today..."
            .importance = 2
            .ReminderSet = True
            '.ReminderDate = Date
            .ReminderTime = Date + 1 & " 15:00 PM"
            .DueDate = Range("C2").Value
            .Display
[COLOR=#0000ff][B]        End With[/B][/COLOR]

[COLOR=#0000ff][B]    End If[/B][/COLOR]

[COLOR=#0000ff][B]End Sub[/B][/COLOR]

Excel 2010
	A	B	C
1	Name	Value	Description
2	olAppointmentItem	1	AnAppointmentItemobject.
3	olContactItem	2	AContactItemobject.
4	olDistributionListItem	7	ADistListItemobject.
5	olJournalItem	4	AJournalItemobject.
6	olMailItem	0	AMailItemobject.
7	olNoteItem	5	ANoteItemobject.
8	olPostItem	6	APostItemobject.
9	olTaskItem	3	ATaskItemobject.
Sheet2