View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Ken Johnson Ken Johnson is offline
external usenet poster
 
Posts: 1,073
Default Inserting new column between the columns

Ramana
Public Sub Insert_Col()
Dim Sht As Worksheet
For Each Sht In Worksheets
Sht.Range("F1").EntireColumn.Insert
Next
End Sub

Is this what you are after?
Ken Johnson