title: Ignore blanks in a range
body: <p>Can some one help with the last bit of this code please, I have a range maximum ("A1:A54")  when i set to this range and only (A1:A10) have a cell value which is the name of a sheet in another workbook. </p>
  
  <p>This code is working but returns a </p>
  
  <blockquote>
    <p>runtime 9 error</p>
  </blockquote>
  
  <p>I really want to add if blank ignore if I change to range I have set to A1:A10 then no error.  I think it might be there is no worksheets in the other workbook this is why I get an error on this loop.</p>
  
  <p>Have looked how to ignore blanks but none of the answers i have found have worked.</p>
  
  <p>I really want a if cell = "" then ignore currently I thought exit sub would work
       Sub Iedextraction()</p>
  
  <pre><code> Dim wkb As Excel.Workbook, wkb1 As Excel.Workbook
   Dim wks As Excel.Worksheet, wks1 As Excel.Worksheet
   Dim cell As Range
   Dim rng As Range
  
  Workbooks.Open Filename:= _
   "D:\Projects\ASE Templates\ASE Template White Book.xlsx"
  
  Set wkb = Excel.Workbooks("ASE RTU Addressing with Automation.xlsm")
  Set wks = wkb.Worksheets("Tab Names from White book")
  Set wkb1 = Excel.Workbooks("ASE Template White Book.xlsx")
  
  Set rng = wks.Range("A1:A54")
  
  
  For Each cell In rng
  
  wkb1.Sheets(cell.Value).Copy After:=Workbooks_
  ("ASE RTU Addressing with Automation.xlsm").Sheets(4)
  
  If cell = "" Then Exit Sub
  
   Next
  
  ' On Error GoTo 0
  End Sub
  </code></pre>