title: RunTime-Error 424; Trying to DIM a named (found in multiple workbooks) Worksheet
body: <p>I have a monthly report, so I have a template that I update each month, then run code to update dozens of workbooks. I want to set the specific worksheet that needs sorted, so that I only need to change 1 line of code each month (not dozens).</p>
  
  <p>I have successfully set each of my workbooks as WB1 (the template), WB2, WB3, etc. and each workbook has the same worksheets (Jan, Feb, Mar, etc.). My code will copy what I do in the template, paste it into each workbook, update their pivot tables, then sort the results on the monthly sheets. </p>
  
  <pre><code>'Dim March worksheet?
  
  Dim WS As Worksheets
      Set WS = Workbook.Sheets("Mar")
  
  'sort for worksheets
  'Macro3 Macro
  
  
  wb2.WS.Sort.SortFields.Add Key:=Range("C3:C190" _
          ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      With wb2.WS.Sort
          .SetRange Range("B2:E189")
          .Header = xlYes
          .MatchCase = False
          .Orientation = xlTopToBottom
          .SortMethod = xlPinYin
          .Apply
          .SetRange Range("B191:E8040")
          .Header = xlYes
          .MatchCase = False
          .Orientation = xlTopToBottom
          .SortMethod = xlPinYin
          .Apply
      End With
  </code></pre>
  
  <p>I want to be able to change the dim (i.e. to "APR" for next month), as I have many workbooks that need sorted on that sheet. Currently, if I dont try to Dim the worksheet and just replace WS with Worksheets("Mar") it works, but this will require dozens of changes to "APR", "May", and so on. I want to only change the "Mar" in the line that I set the variable.</p>