Combining multiple macros into one subroutine

I did some google searches and searched here as well and could not find what I was looking for. Other than creating a master macro to call each macro individually, how would I combine these to run in one macro?

Sub CW1()
Dim i As Long
Application.ScreenUpdating = 0
For i = 3 To ActiveSheet.UsedRange.Columns.Count Step 3
    Columns(i).ColumnWidth = 15
Next: Application.ScreenUpdating = 1: End Sub

Sub CW2()
Dim i As Long
Application.ScreenUpdating = 0
For i = 4 To ActiveSheet.UsedRange.Columns.Count Step 3
    Columns(i).ColumnWidth = 5
Next: Application.ScreenUpdating = 1: End Sub

Sub CW3()
Dim i As Long
Application.ScreenUpdating = 0
For i = 5 To ActiveSheet.UsedRange.Columns.Count Step 3
    Columns(i).ColumnWidth = 5
Next: Application.ScreenUpdating = 1: End Sub

Thanks for your help.