What am I missing? Getting the above error with this code. I want t
subtract the column "e" from "d" put the results in column "f" an
delete column "e" & "d".

Thanks,

Met




Code
-------------------

Sub Calculate_Delete()
Worksheets("Invoice").Select
For a = 1 To 1000
Cells(a, "f").Value = Cells(a, "d").Value - Cells(a, "e").Value
Next a
Sheets("Invoice").Columns("d:d").EntireColumn.Dele te
Sheets("Invoice").Columns("e:e").EntireColumn.Dele te
End Sub

-------------------

--
Metraza
-----------------------------------------------------------------------
Metrazal's Profile: http://www.excelforum.com/member.php...fo&userid=3164
View this thread: http://www.excelforum.com/showthread.php?threadid=52057