What about this?
[VBA]
Rows("1:1").Insert
Columns("B:B").AutoFilter Field:=1, Criteria1:="<>*.*"
Cells.Delete
[/VBA]
What about this?
[VBA]
Rows("1:1").Insert
Columns("B:B").AutoFilter Field:=1, Criteria1:="<>*.*"
Cells.Delete
[/VBA]
Enjoy,
Tony
---------------------------------------------------------------
Give a man a fish and he'll eat for a day.
Teach him how to fish and he'll sit in a boat and drink beer all day.
I'm (slowly) building my own site: www.WordArticles.com
Posting Permissions
Reply With Quote