Skip
Yep my bad, "If Len(oWS.Cells(r, 4)) > 0 And Len(oWS.Cells(r, 5)) > 0 Then"..... should have read "If Len(oWS.Cells(r, 1)) > 0 And Len(oWS.Cells(r, 4)) > 0 Then...."
All works a treat now
Zelgar
Do Until IsEmpty(Cells(oWS.Cells(r, 4)) ' Combine A to D keeps throwing a debug error but not...