title: Changing Range Breaks Sub
body: <p>I need to off set the First row, so I Changed the range in the Sub from</p>
  
  <pre><code>For Each rng In Sheets("360").Range("B:CJ" &amp; Lastrow)
  </code></pre>
  
  <p>to</p>
  
  <pre><code>For Each rng In Sheets("360").Range("B2:CJ2" &amp; Lastrow)
  </code></pre>
  
  <p>The sub know barley runs it took 5 seconds to run and know takes minutes if it even finishes</p>
  
  <p>How to fix this?</p>
  
  <p>Thanks</p>
  
  <pre><code>Sub CleanAll()
  
      Dim rng As Range
      Dim Lastrow As Long
  
      With Sheets("360")
          Lastrow = .Range("A" &amp; .Rows.Count).End(xlUp).Row
      End With
  
      For Each rng In Sheets("360").Range("B2:CJ" &amp; Lastrow)
          rng.Value = NumberOnly(rng.Value)
      Next
  End Sub
  </code></pre>
  
  <p>The Function</p>
  
  <pre><code>Function NumberOnly(strSource As String) As String
  Dim i As Integer
  Dim strResult As String
  
  For i = 1 To Len(strSource)
      Select Case Asc(Mid(strSource, i, 1))
          Case 32, 48 To 57, 65, 78:
              strResult = strResult &amp; Mid(strSource, i, 1)
      End Select
  Next
  NumberOnly = strResult
  
  End Function
  </code></pre>