Send Email Based on Cell Values

I'm trying to using an If Statement with VBA but have never done it before.
IF C3="A" in the active excel workbook, send email to "Person A" & cc "Distribution List A". If not send email to "Person B" & cc "Distribution B".
Code shown below. Thanks for your help!!!!!!!

Dim OutApp As Object
    Dim OutMail As Object
     
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
     
    On Error Resume Next
    With OutMail
        .To = "Person A"
        .Cc = "Distribution List A"
        '.BCC = ""
        .Subject = "My Report"
        .Body = "Report has been included as an attachment."
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    On Error GoTo 0
    
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Before proceeding further in this thread, click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

Now to your question:
You may try something like this.....

Dim OutApp As Object
Dim OutMail As Object
Dim emailTO As String, emailCC As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

If Range("C3").Value = "A" Then
    emailTO = "PersonA@email.com"               'replace with actual email
    emailCC = "DistributionlistA@email.com"     'replace with actual email
Else
    emailTO = "PersonB@email.com"               'replace with actual email
    emailCC = "DistributionlistB@email.com"     'replace with actual email
End If
On Error Resume Next
With OutMail
.to = emailTO
.CC = emailCC
'.BCC = ""
.Subject = "My Report"
.Body = "Report has been included as an attachment."
.Attachments.Add ActiveWorkbook.FullName
.Display
End With

You're welcome!
Thanks for the rep and adding the code tag as well.