title: Un-merge looping through sheets
body: <p>I want to select A1:A3 and unmerge on all sheets. This is what I have so far:</p>
  
  <pre><code> Sub Unmerge()
     Dim rs As Worksheet
     For Each rs In Sheets
       rs.Range("A1:A3").Select
       Selection.Unmerge
     Next rs
     End Sub
  </code></pre>
  
  <p>My code only works on the first sheet then fails. Also my sheets are named differently, and the location of the workbooks will be different each time.</p>
  
  <p>THANKS A LOT!</p>