Hi,
So the following code works on it's own
Sub PullUniques()
With Sheets("Line Items")
Dim rngCell As Range
For Each rngCell In Range("A2:A1000")
If WorksheetFunction.CountIf(Range("B2:B1000"), rngCell) = 0 Then
Range("C" & Rows.Count).End(xlUp).Offset(1) = rngCell
End If
Next
For Each rngCell In Range("B2:B1000")
If WorksheetFunction.CountIf(Range("A2:A1000"), rngCell) = 0 Then
Range("D" & Rows.Count).End(xlUp).Offset(1) = rngCell
End If
Next
End With
End Sub
but does not work in this button call:
Sub InsertIsolate()
Call FileImport
Call AuditLine
Call AsBuiltLine
Call PullUniques
End Sub
and I cannot figure out why..any thoughts?