Inserting multiple columns without a loop

[FNeeq]

I am trying to insert about 10 columns before a column with header "Analysis". Below is the code I am currently using. I will like to know if I can do this without a loop. Thanks

    Dim fnRange As Range

    Set fnRange = Worksheets(ActiveSheet.Name).Range(Range("A1"), Range("A1").End(xlToRight)).Find(what:="Analysis", _
    LookAt:=xlWhole, MatchCase:=False)
    
    With fnRange.Select
    
        For lngCount = 1 To 10
            Selection.EntireColumn.Insert
        Next lngCount
        
    End With

 

[Momentman]

This should do the trick or so i think

Columns(fnRange.Column).Resize(, 10).Insert

so the code now looks like this

Dim fnRange As Range
Set fnRange = Worksheets(ActiveSheet.Name).Range(Range("A1"), Range("A1").End(xlToRight)).Find(what:="Analysis", _
    LookAt:=xlWhole, MatchCase:=False)
Columns(fnRange.Column).Resize(, 10).Insert

 

[FNeeq]

Thanks for the help.

 

[Momentman]

So take it that it worked, right?

You are welcome