column selection vba

[jasman]

Hi. Ive got the below code but it keep erroring:

Sheet1.Columns("E:IO").Select
Selection.Interior.ColorIndex = xlNone
Selection.Columns.Ungroup

im just trying to select the columns to ungroup them and remove colour
any ideas? thanks

 

[JackDanIce]

Try:

With Sheets("Sheet1").Columns("E:IO")
   .Interior.ColorIndex = xlNone
   .Columns.Ungroup
End With

 

[jasman]

still doesnt work. the message i get is:

run-time error '9'
subscript out of range

 

[Peter_SSs]

still doesnt work. the message i get is:

run-time error '9'
subscript out of range

What sheet do you want the code to act on?

 

[jasman]

sheet2 (which i did change in the formual above before trying it)

 

[JackDanIce]

Select Sheet2 and then try running like this:

With .Columns("E:IO")
   .Interior.ColorIndex = xlNone
   .Ungroup
End With

If there's still a problem, try FIRST grouping your columns and then re-running. Otherwise there's something else that you've not indiciated

 

[RoryA]

You should only get that error if you got the sheet name wrong.

 

[Sektor]

I guess this:

Sub GG()

    With Sheet1.Columns("E:IO")
        .Interior.ColorIndex = xlNone
        .UnMerge
    End With

End Sub