How to insert Column using VBA?


Ans : ➯ We can insert column manually using below steps :

1) Select Column using Ctrl + Space then Press Ctrl + Shift + +

OR

2) Select Column then right click , Click on Insert Option




➯ That's it.

➯ If we want to insert 1 or more column using VBA

then follow below 

VBA Code :

➯ Find Column and Insert Column

Ex : Find column (Status)

Sub InsertColumn()

Dim WksTemp As Worksheet

Dim FindStatus As Long

Set WksTemp=Thisworkbook.sheets(Sheet1.Name)

FindStatus=WksTemp.Cells.Find(What:="Status",LookAt:=Xlpart).Column

If  FindStatus = 0 Then

MsgBox "Status Column Not Found in Temp Sheet",VBCritical,"Error"

Exit Sub

End If

' Insert One Column After Status Column

WksTemp.Cells(FindStatus+1).EntireColumn.Insert

'OR Insert 5 Column Using For Loop

For I = 1 To 5

WksTemp.Cells(FindStatus+1).EntireColumn.Insert

Next

End Sub

 

Post a Comment

Previous Post Next Post