複数のシートからの乗算範囲のVBAコード

Question

2枚のデータデータを1つのメールに結合して送信するVBAコードを書くためのトレーニングです。 以下のコードをデバッグ用に使用しましたが、後でそのコードを実行できませんでした。コードの下 は、一枚の範囲のデータを送信し、私はSheet2の(Worksheets("Sheet2").Range("b3:b30")

Sub Mail_take_2() 

    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("Sheet1").Range("c2:j45") 

    Set AWorksheet = ActiveSheet 

    With Sendrng 

     .Parent.Select 

     Set rng = ActiveCell 

     .Select 

     ActiveWorkbook.EnvelopeVisible = True 
     With .Parent.MailEnvelope 

      .Introduction = "This is test mail 2." 

      With .Item 
       .To = "aaa@aa.com" 
       .CC = "" 
       .BCC = "" 
       .Subject = "My subject" 
       .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 

Answer 1

 dim myVariable as string 
     dim newRange as string 
     newRange = Range.Value 
     myVariable = myVariable + newRange 

     With .Item 
      .To = "aaa@aa.com" 
      .CC = "" 
      .BCC = "" 
      .Subject = "My subject" 
      .Body = myVariable 
      .Send 
     End With 

からそれを追加怒りを追加したいあなたはyoureのがやろうとかを把握このヘルプをしていますか？