Macro To Insert Columns In Excel

[jac3130]

I'm seeking a macro to insert a column to the right of columns C:N and R:W.

Thank you in advance for your help.

[Excel Fox]

To the right of each column from C:N and R:W, or just one column to the right of R:W and C:N?

[princ_wns]

Try this One..


Public Sub InsertColumns()

Dim intCol As Integer

Const strCol = "N:N" 'Here Just add the last Columns charactor Like "C:N"'s - N:N
Const strSheetName = "Sheet1" ''Here just add the sheet Name
Const intTotal = 5 'Here Pass the number of columns that you want to add

With ThisWorkbook.Worksheets(strSheetName)
For intCol = 1 To intTotal
.Columns(strCol).Insert xlRight
Next
End With

End Sub

:)

Regards
Prince