Need help in Command button created in Excel

[SunilSunny]

I have created a command button in excel which when clicked opens a new email box. The code is as below.
What I want help is that when the button is clicked it opens the email box and automatically "To" field is filled (which should be picked from one cell of that excel sheet )

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "" & vbNewLine & vbNewLine & _
"Regards" & vbNewLine & _
"Sunny"
On Error Resume Next
With xOutMail
.To = ActiveCell
.CC = "someone@xyz.com.au"
.BCC = ""

.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

 

[Logit]

ActiveCell.Value

 

[SunilSunny]

t

ActiveCell.Value

Thanks for reply
When I use ActiveCell it only pick the value from the cell which is selected at that moment. I want the value to be picked form specific Cell only.

 

[Logit]

.
You'll need to specifically name the cell you are referring to.
Example : Range("A1").Value ... or perhaps ... Sheet1.Range("A1").Value