how to attached to outlook only two sheet from workbook in excel vba code example

Example: how to attached to outlook only two sheet from workbook in excel vba

Dim lX As Long
    Dim aryWorksheets() As Variant
    Dim sWorksheets As String
    Dim iAnswer As VbMsgBoxResult
    
    For lX = 1 To ActiveWindow.SelectedSheets.Count
        ReDim Preserve aryWorksheets(1 To lX)
        aryWorksheets(lX) = ActiveWindow.SelectedSheets(lX).Name
        sWorksheets = sWorksheets & "     " & ActiveWindow.SelectedSheets(lX).Name & vbLf
    Next
    
    iAnswer = MsgBox("You currently have the following worksheet" & _
        IIf(ActiveWindow.SelectedSheets.Count > 1, "s", "") & " selected:" & vbLf & vbLf & _
        sWorksheets & vbLf & "Click 'OK'       if " & _
        IIf(ActiveWindow.SelectedSheets.Count > 1, "these are", "this is") & " the worksheet" & _
        IIf(ActiveWindow.SelectedSheets.Count > 1, "s", "") & " that you want to attach to the email" & vbLf & _
        "Click 'Cancel' if you want to change your selection." & vbLf & vbLf & _
        "Use Ctrl+LeftClick to select/unselect multiple worksheets", vbOKCancel, _
        "Attach Selected Worksheets?")
    If iAnswer = vbCancel Then End
    Sheets(aryWorksheets).Copy