VBA Insert Column And Add Header On Multiple Sheets

Hi I wonder whether someone may be able to help me please.

I'm trying to put together a short script which on selected sheets only, inserts a column and adds a column header to this.

This is what I've put together so far:

Please Login or Register  to view this content.

The problem I have is that when I run this, I receive the following error: "Select method of range class failed" and debug highlights this line as the issue: ws.Cells.Range("D7").Select.

I just wondered whether someone may be able to look at this and let me know where I've gone wrong.

Many thanks and kind regards

Chris

Try this instead:

Please Login or Register  to view this content.

Hi @berlan, thank you very much for taking the time to reply to my post and for setting me straight. This works great.

All the best and kind regards

Chris