If you indent your code for each if segment and loop section, you'll find that the Endif is WITHIN your For loop Simply reverse the order of the Next and EndIf statements:
Do Until wks.Cells(i, 1).Value = "" If wks.Cells(i, 1).Value <> "" Then For y = 1 To 1 wks.Cells(i, y).Value = Left(sFilename, 5).Value Next End If Loop Paul ________________________________ From: wkeanebaker <wkeaneba...@gmail.com> To: MS EXCEL AND VBA MACROS <excel-macros@googlegroups.com> Sent: Fri, February 25, 2011 1:06:17 PM Subject: $$Excel-Macros$$ errors in my code Do Until wks.Cells(i, 1).Value = "" If wks.Cells(i, 1).Value <> "" Then For y = 1 To 1 wks.Cells(i, y).Value = Left(sFilename, 5).Value End If Next Loop Im catching a end if without block if and then a loop without do error but im lost, help -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel
