title: How to loop Range.Find in VBA?
body: <p>I am new to VBA so please don't judge too harsh. Having said that below is my issue with <code>Range.Find</code>.</p>
  
  <p>I have a crosstab with a column that has "https" link to pictures; and I have a working VBA to turn these links into actual pictures in each cell for that column. However, my issue is when I add another column into the Crosstab or move column around, my VBA stops working and I end up with my links without actual pictures (since, the picture code is set to the initial column where my links reside).</p>
  
  <p>I figured there should be a way to make it more dynamic by using <code>Range.Find</code>. I have managed to find information on <code>Range.Find</code>, but my code won't work. Is there anyway anyone could help out?</p>
  
  <p>Here is the code:</p>
  
  <pre><code>Function picRng() As Range
      Set picRng = ActiveSheet.Range("A1:Z1000")
      Set rngFindValue = ActiveSheet.Range("A1:Z1000").Find(what:="http", Lookat:=xlPart)
      Do
        Set rngFindValue = Search.FindNext(rngFindValue)
      Loop While Not rngFindValue is Nothing
  End Function
  </code></pre>