From the top (headings) row, I want to check each row until I find the
heading "telephone" at which point I want to insert a column to the right.

How does one do this in a macro?

many thanks,
Pete

Dim res as Variant
res = application.Match("telephone",rows(1),0)
if not iserror(res) then
columns(res+1).Insert
End if

--
Regards,
Tom Ogilvy

"Italian Pete" wrote in message
...

From the top (headings) row, I want to check each row until I find the
heading "telephone" at which point I want to insert a column to the right.

How does one do this in a macro?

many thanks,
Pete