Thread: Code works 1st time then Type Mismatch when checking for not blank cells
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
mudraker[_145_] mudraker[_145_] is offline
external usenet poster
  
Posts: 1
Default Code works 1st time then Type Mismatch when checking for not blank cells
Why not do away with your loop and use

ilastrow = oxlWks.Worksheets("Sheet1").Range("A65536").End(xl Up).Row


this gets the last row with an entry in column a



Can not help you as to why your code fail

--
Message posted from http://www.ExcelForum.com

Reply With QuoteReply With Quote