title: How to apply FreezePanes in multiple sheets?
body: <p>I have this code below, but i don't know how to fit it for several sheets.</p>
  
  <pre><code>Set r = ActiveCell
   Range("A4").Select
   With ActiveWindow
   .FreezePanes = False
   .ScrollRow = 1
   .ScrollColumn = 1
   .FreezePanes = True
   .ScrollRow = r.Row
  End With
  r.Select
  </code></pre>