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

Post a Comment

jeetexceltips@gmail.com

Popular posts from this blog

50 Excel VBA Oral Interview Questions

Ques 01. What is the difference between ByVal and ByRef and which is default ? Solution: ByRef: If you pass an argument by reference when calling a procedure the procedure access to the actual variable in memory. As a result the variable's value can be changed by the procedure. ByVal: If you pass an argument by value when calling a procedure the variable's value can be changed with in the procedure only outside the actual value of the variable is retained. ByRef is default: Passing by reference is the default in VBA. If you do not explicitly specify to pass an argument by value VBA will pass it by reference. Ques 02. What is the meaning of Option Explicit and Option Base? Solution: Option Explicit makes the declaration of Variables Mandatory while Option Base used at module level to declare the default lower bound for array subscripts. For eg. Option Base 1 will make the array lower bound as 1 instead of 0. Option Base - When an array is declared by d...
Read more