Office: (Office 365) Immer aktives Blatt versenden.

Hallo Zusammen,
kann man den Code so ändern das immer das gerade aktive Blatt nur versendet wird ?
Am besten ohne das Range ("X1")
Sondern immer den Namen des Blattes als Datei und als xlsx versenden. Die Hauptdatei ist ja eine xlsm.
Wäre schön wenn das jemand von Euch kann.

Code:

Sub per_Mail_versenden()
Dim olApp     As Object
Dim AWS       As String
Dim olOldbody As String
Application.ScreenUpdating = False
AWS = ActiveWorkbook.FullName

Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
              .GetInspector.display
              olOldbody = .htmlBody
              .To = "XXXXXXXXXXXXXXX"
              .Subject = "XXXXXXXXXXXXXXX "
              .htmlBody = "Hallo!<br><br>Anbei gewünschte Informationen.<br><br>" & _
                          "XXXXXXXXXXXXXXXX <br><br>" & Range("X1") & _
                          "<br><br>Gruß,<br>Merkur<br><br>" & olOldbody
              .Attachments.Add ActiveWorkbook.FullName
              '.send
              .display
    End With
Application.ScreenUpdating = True
End Sub