Try this...

Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
sht.Columns("D:D").Delete Shift:=xlToLeft
Next sht

--
HTH...

Jim Thomlinson


"samlyon" wrote:

I am trying to delete a column in all worksheets. The code i'm using only
deletes the column in the first worksheet, but not the rest of them.

Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Next sht

Any help would be greatly appreciated.