this is not an elegant solution for which you have to wait solution from
MVPs
meanwhile copy your data in another file and test this code and see whether
this is what ou want.

Public Sub test()
On Error GoTo line1
Dim cell As Range
For Each cell In Range("a1:F1")
cell.Activate
Cells.Find(what:="#n/a").Activate
ActiveCell.EntireColumn.Delete
Next cell
line1:
End Sub

tom g <tom wrote in message
...
hi,
i'm very new to vba for excel.. working with very easy examples. wondering
if anyone can help me with a repetitive task.
i have data comming in to various columns. at some data there is a #NA,
i'd
like to delete everything in that column after that #NA, and then move on
to
the next column and repeat the task.

thanks, thomas