combine two vba codes

[Dokat]

Hi.

I have two vba codes where i unhide columns and other one ungroups. Is there anyway to combine these codes.

Sub Ungroup()

Application.ScreenUpdating = False

    Dim wb As Workbook
    Dim ws As Worksheet
    Set wb = ActiveWorkbook
    Set ws = Sheets("Summary by L5")
    wb.Activate
    ws.Select
   
ws.Columns("A:GK").Columns.Ungroup

Application.ScreenUpdating = True

End Sub

Sub Unhide()

Application.ScreenUpdating = False

    Dim wb As Workbook
    Dim ws As Worksheet
    Set wb = ActiveWorkbook
    Set ws = Sheets("Summary by L5")
    wb.Activate
    ws.Select
   

ws.Columns("A:GK").Hidden = False

Application.ScreenUpdating = True

End Sub

 

[Herakles]

Hi.

I have two vba codes where i unhide columns and other one ungroups. Is there anyway to combine these codes.

Sub Ungroup()

Application.ScreenUpdating = False

    Dim wb As Workbook
    Dim ws As Worksheet
    Set wb = ActiveWorkbook
    Set ws = Sheets("Summary by L5")
    wb.Activate
    ws.Select
  
ws.Columns("A:GK").Columns.Ungroup

Application.ScreenUpdating = True

End Sub

Sub Unhide()

Application.ScreenUpdating = False

    Dim wb As Workbook
    Dim ws As Worksheet
    Set wb = ActiveWorkbook
    Set ws = Sheets("Summary by L5")
    wb.Activate
    ws.Select
  

ws.Columns("A:GK").Hidden = False

Application.ScreenUpdating = True

End Sub

Public Sub SubUnhideAndUngroup()
Dim Wb As Workbook
Dim Ws As Worksheet
    
    Application.ScreenUpdating = False
    
    Set Wb = ActiveWorkbook
    
    Set Ws = Wb.Sheets("Summary by L5")

    With Ws
    
        ' ***** Unhide *****
        .Columns("A:GK").Hidden = False
    
        ' ***** Ungroup *****
        .Columns("A:GK").Columns.Ungroup

    End With
    
    Application.ScreenUpdating = True

End Sub

 

[Dokat]

Public Sub SubUnhideAndUngroup()
Dim Wb As Workbook
Dim Ws As Worksheet
   
    Application.ScreenUpdating = False
   
    Set Wb = ActiveWorkbook
   
    Set Ws = Wb.Sheets("Summary by L5")

    With Ws
   
        ' ***** Unhide *****
        .Columns("A:GK").Hidden = False
   
        ' ***** Ungroup *****
        .Columns("A:GK").Columns.Ungroup

    End With
   
    Application.ScreenUpdating = True

End Sub

Thank you. It worked perfectly!