Insert colmn

[Yossy]

how can I automatically insert column before "Column name Top" across
multiple sheet. Also date each column for current month E.g) 1 - Sep -08

all help totally appreciated. thanks

 

[Sheeloo]

Do you want to insert a column before the Column containing "Top" in Row 1,

 

[Sheeloo]

Try
Sub insertCol()
Dim dt As String
dt = Application.WorksheetFunction.Text(Date, "dd-mmm-yyyy")
dt = "01" & Right(dt, Len(dt) - 2)
For Each ws In Worksheets
ws.Activate
Range("1:1").Select
For Each c In Selection
If c.Value = "Top" Then
c.Select
Selection.EntireColumn.Insert
ActiveCell.Value = dt
Exit For
End If
Next
Next
End Sub