If OUTLINE exists remove it in VBA

[QB]

Hi

I want to check whether there is a worksheet has an outline in VBA. If there is I want to use Cells.ClearOutline to clear the old oytline and then add a new outline.

Can anyone help?

Thanks

Q

 

[Datsmart]

Take a look at this previous post:
http://www.mrexcel.com/forum/showthread.php?p=2608268#post2608268

Similar request with sample code to build outline based on grouping of data in column A.

 

[QB]

Hi

Thanks for your code but it does not exclude any code to celar any EXISTING outlines below adding new groups.

Any other ideas?

Regards

 

[Datsmart]

Adding the removal code you posted at the beginning of the other sample code will clear any old outlining.

Sub AutoGroup()
    'Remove any Outlining on worksheet
    Cells.ClearOutline
    'Begin new Outlining
    Range("B2").Select
    Do Until ActiveCell = "" And ActiveCell.Offset(1, 0) = ""
        If ActiveCell.Offset(0, -1) <> "" Then
            SR = ActiveCell.Offset(1, 0).Row
            Do Until ActiveCell <> "" And ActiveCell.Offset(1, -1) <> ""
                ActiveCell.Offset(1, 0).Activate
                If ActiveCell = "" And ActiveCell.Offset(1, 0) = "" Then GoTo LastGroup
            Loop
            ER = ActiveCell.Row
        End If
        Rows(SR & ":" & ER).Group
        ActiveSheet.Outline.SummaryRow = xlAbove
        ActiveCell.Offset(1, 0).Activate
        If ActiveCell = "" And ActiveCell.Offset(1, 0) = "" Then Exit Sub
    Loop
LastGroup:
    ER = ActiveCell.Offset(-1, 0).Row
    Rows(SR & ":" & ER).Group
End Sub