Activecell.Offset(0,1).Resize(1,5).EntireColumn.In sert

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Kurt" wrote in message
...
I would like to create a macro that will insert 5 columns to the right of
the
currently active cell. I would like to select any cell in my worksheet and
run the macro and have it insert 5 columns. Any ideas?