Managed to get it to do what i want now all i did was add a few of line
that ive put in Bold to the original code i had working before


Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long
FOR I = 1 TO 4
WORKSHEETS(I).ACTIVAT
LastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "D").Value = blank Then
Rows(RowNdx).Delete
End If
Next RowNdx
NEX
Sheets("Sheet2").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\evt_test.csv", FileFormat:= _
xlCSV, CreateBackup:=False
Sheets("Sheet3").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\mkt_test.csv", FileFormat:= _
xlCSV, CreateBackup:=False
Sheets("Sheet4").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\SEL_TEST.csv", FileFormat:= _
xlCSV, CreateBackup:=False

End Sub


Thanks for the hel

--
scottymellot
-----------------------------------------------------------------------
scottymelloty's Profile: http://www.excelforum.com/member.php...nfo&userid=380
View this thread: http://www.excelforum.com/showthread.php?threadid=27150