Hi
I'm trying to insert a blank column on all the sheets except one. The column in question is not fixed, so i have created a Dynamic named range to define it.
The code that i have come up with so far is the following:

Dim i As Integer
Dim Wb As Workbook
Set Wb = ActiveWorkbook
For i = 1 To ActiveWorkbook.Worksheets.Count
If Wb.Sheets(i).Name <> "workings" Then
 Columns(Application.WorksheetFunction.Match("total", Wb.Sheets(i).Range("1:1"), 0)).Select
    Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets(i).Select (False)
End If
   Next i
For some reason, no doubt completely obvious!, it seems to insert all the columns on one sheet as oppposed to one column on all the sheets.

thanks for your time