title: How do I select the same range across multiple sheets in Excel VBA?
body: <p>I am simply trying to select the same range across multiple sheets using the union method. I am getting the "object required (ERROR 424)" at line 16 of the code. I don't know what I am doing wrong, and have tried many different approaches!</p>
  
  <pre><code>Sub MultipleRange()
   TheRange = "C6:D18,C22:D31,C35:D40,C44:D48,C52:D62,C66:D71,C75:D80,H20:I27,H31:I39,H43:I48,H52:I60,H64:I70,H75:I79"
   Dim r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12, Rangey As Range
   Set r1 = Sheets("Jan").Range(TheRange)
   Set r2 = Sheets("Feb").Range(TheRange)
   Set r3 = Sheets("Mar").Range(TheRange)
   Set r4 = Sheets("Apr").Range(TheRange)
   Set r5 = Sheets("May").Range(TheRange)
   Set r6 = Sheets("Jun").Range(TheRange)
   Set r7 = Sheets("Jul").Range(TheRange)
   Set r8 = Sheets("Aug").Range(TheRange)
   Set r9 = Sheets("Sep").Range(TheRange)
   Set r10 = Sheets("Oct").Range(TheRange)
   Set r11 = Sheets("Nov").Range(TheRange)
   Set r12 = Sheets("Dec").Range(TheRange)
   Set Rangey = xl.Application.Union(r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12)
   Rangey.Select
   Rangey.Activate
  End Sub
  </code></pre>