Insert Column


Sub insert_column()
Dim jeet As Integer
ActiveSheet.Range(Cells(1, 1), Cells(1, Range("A1").End(xlToRight).Column)).Select
jeet = Selection.Find(what:="FindHeading").Next.Column
ActiveSheet.Columns(jeet).Select
Selection.Insert shift:=xlRight
End Sub

Comments

Popular posts from this blog

50 Excel VBA Oral Interview Questions