Ungroup Sheets after Print (and/or Print Preview)

[GoKats78]

I am using the code below to group sheets "Before Print"...

How do I use code to ungroup after print (and/or Print Preview)?

I can ungroup them On Open or Before Close but do not know how to do so after print...

Private Sub Workbook_BeforePrint(Cancel As Boolean)Dim SheetNames As String
    Dim sh As Worksheet
     
    With ActiveWorkbook
         
        For Each sh In .Worksheets
             
            SheetNames = SheetNames & sh.Name & ","
        Next sh
         
        SheetNames = Left$(SheetNames, Len(SheetNames) - 1)
         
        .Sheets(Split(SheetNames, ",")).Select
    End With
End Sub

 

[GoKats78]

Any ideas? I am still stuck on this one...