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