title: Excel VBA code, one macro works when ran by itself, but debugs when ran in a group
body: <p>My program works by calling a number of macros as such:</p>
  
  <pre><code>Sub Start()
  
  Call ClearAll
  Call Sales_Download
  Call Copy_Sales
  Call Receipt_Download
  Call Copy_Receipt
  Call Copy1
  Call Sales_Summary
  Call Copy2
  Call Receipt_Summary
  
  End Sub
  </code></pre>
  
  <p>My program breaks at the copy2, which is essentially an exact replica of copy1 wich works fine.  When copy2 is ran by itself it works perfectly, but when I attempt to run the entire program it debugs.  The bolded line is where the debug happens.</p>
  
  <pre><code>Sub Copy2()
  
   ' Copies all data from Receipt Download tab for each location, and saves in a seperate folder
  
  Dim i As Long
  Dim lngLastRow As Long, lngPasteRow As Long
  
  'Find the last row to search through
  lngLastRow = Sheets("Receipt_Download").Range("J65535").End(xlUp).Row
  
  'Initialize the Paste Row
  lngPasteRow = 2
  Dim rng As Range
  Dim c As Range
  Dim endrow
  Dim strName As String
  Dim ws As Worksheet
  Dim j As Long
  endrow = Sheets("names").Range("A65000").End(xlUp).Row
  Set rng = Sheets("names").Range("A2:A" &amp; endrow)
  j = 1
  FBO = strName
  
  
  For Each c In rng
  
  
  For i = 2 To lngLastRow
      strName = c.Value
      If Sheets("Receipt_Download").Range("J" &amp; i).Value = strName Then
          Sheets("Receipt_Download").Select
          Range("A" &amp; i &amp; ":IV" &amp; i).Copy
          Sheets("Summary").Select
          Range("A" &amp; lngPasteRow &amp; ":IV" &amp; lngPasteRow).Select
          ActiveSheet.Paste
          lngPasteRow = lngPasteRow + 1
  
      End If
  Next i
  j = j + 1
          Sheets("Receipt_Download").Select
          Rows("1:1").Select
          Selection.Copy
          Sheets("Summary").Select
          Rows("1:1").Select
          ActiveSheet.Paste
          Columns("D:E").Select
          Selection.NumberFormat = "m/d/yyyy"
          Sheets("Summary").Select
          Range("B25000").Select
          ActiveCell.FormulaR1C1 = "Grand Total"
          Range("B25000").Select
          Selection.Font.Bold = True
          Columns("G:G").Select
          Selection.Insert Shift:=xlToRight
          Range("G1").Select
          ActiveCell.FormulaR1C1 = "=IF(RC[-2]=0,""0"",RC[-1])"
          Range("G1").Select
          Selection.AutoFill Destination:=Range("G1:G24950")
          Range("G25000").Select
          ActiveCell.FormulaR1C1 = "=SUM(R[-24950]C:R[-1]C)"
          Range("G25000").Select
          Selection.Copy
          Range("F25000").Select
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
          Columns("G:G").Select
          Application.CutCopyMode = False
          Selection.Delete Shift:=xlToLeft
          Sheets("Summary").Select
          Range("F25000").Select
          Application.CutCopyMode = False
          Selection.Copy
          Sheets("Names").Select
          With Columns("B")
          .Find(what:="", after:=.Cells(1, 1), LookIn:=xlValues).Activate
          End With
          ActiveSheet.Paste
          Sheets("Summary").Select
          Range("b1:b30000").Select
          For Each Cell In Selection
          If Cell.Value = "" Then
          Cell.ClearContents
          End If
          Next Cell
          Range("b1:b30000").Select
          Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
          Sheets("Summary").Select
          Range("D2").Select
          Application.CutCopyMode = False
          Selection.Copy
          Sheets("Names").Select
          ***With Columns("C")
          .Find(what:="", after:=.Cells(1, 1), LookIn:=xlValues).Activate***
          End With
          ActiveSheet.Paste
          Sheets("Summary").Select
          Range("A1:Z5000").Select
          Selection.Copy
          Workbooks.Add
          ActiveSheet.Paste
          Range("A1").Select
          Application.CutCopyMode = False
          Selection.Copy
          Application.CutCopyMode = False
          File = "C:\Documents and Settings\user\Desktop\New FBO\" &amp; strName &amp; "\" &amp; strName &amp; " Receipts.xls"
          ActiveWorkbook.SaveAs Filename:=File, _
          FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
          ReadOnlyRecommended:=False, CreateBackup:=False
          ActiveWorkbook.Close
          IngPasteRow = IngPasteRow + 1
          Sheets("Summary").Select
          Selection.ClearContents
  Next c
  
  End Sub
  </code></pre>
  
  <p>I would really appreciate any help, I am certainly no VBA master and this has been quite troublesome.</p>