Hello,

I have the following coding, which works perfectly:

rivate Sub CommandButton9_Click()

    Dim AWorksheet As Worksheet
    Dim Sendrng As Range
    Dim rng As Range

    On Error GoTo StopMacro

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

 
    Set Sendrng = Worksheets("Results").Range("A4:A26")

    
    Set AWorksheet = ActiveSheet

    With Sendrng

        
        .Parent.Select

       
        Set rng = ActiveCell

        
        .Select


        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope


            With .Item
                .To = Range("A2").Value
                .CC = ""
                .BCC = ""
                .Subject = "Facebook datawash"
                .Send
            End With

        End With

      
        rng.Select
    End With
    

    
    AWorksheet.Select

StopMacro:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    ActiveWorkbook.EnvelopeVisible = False

End Sub
The only issue is that the data is being sent to clients and it would be perfect if I could add a signature to the email. How would I go about doing this?

Any help much appreciated.