Macros taking too long to process

[Livin404]

Greetings,
I have a VBA that has about 15 Macros, and it works great. The only problem I have 4 macros that seem to take way too long. Fortunately, they're are short macros. I believe it has something to do with "Entire Column". I am hoping it is just a small tweak. I do apologize for having 4, but I thought these were short ones. Again they work fine, but for whatever reason it takes longer than I think it should.

Thank you very much indeed.

Sub delCol()
        Dim sourceSheet As Worksheet
        Set sourceSheet = Sheet1
     sourceSheet.Range("A:A, E:E, G:G, I:K, M:X").EntireColumn.Delete
    End Sub

Sub FIRST_TAIL()
        Dim sourceSheet As Worksheet
        Set sourceSheet = Sheet1
     sourceSheet.Range("C:C").EntireColumn.Delete
    End Sub

Sub moveColumn()
With ActiveSheet
    Columns("G").Cut
    Columns("D").Insert Shift:=xlToRight
    Columns("H").Cut
    Columns("f").Insert Shift:=xlToRight
    End With
End Sub

Sub Left_Align()
   With Sheets("Global Reach Out").Cells
      .Font.Name = "Times New Roman"
      .Font.Size = 12
      .HorizontalAlignment = xlLeft
      .BorderAround xlNone
      .VerticalAlignment = xlCenter
      .EntireColumn.AutoFit
      .WrapText = False
       End With
End Sub

 

[Joe4]

In each one, try placing these lines of VBA code right underneath the "Sub" line:

Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Then place this code right above the "End Sub" line of each one:

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True

Does that help speed things up?

 

[My Aswer Is This]

With this line of code:
With Sheets("Global Reach Out").Cells
It means all 10 billion cells or so on your worksheet.
This may take a long time for sure.
And would you please be more specific about the term Long time.
Some users think 2.1 seconds is a long time

 

[johnnyL]

This is what I came up with:

Sub delCol()
'
    Dim sourceSheet As Worksheet
'
    Set sourceSheet = Sheet1
    sourceSheet.Range("A:A, E:E, G:G, I:K, M:X").Delete
End Sub

Sub FIRST_TAIL()
'
    Dim sourceSheet As Worksheet
'
    Set sourceSheet = Sheet1
    sourceSheet.Range("C:C").Delete
End Sub

Sub moveColumn()
'
    Application.ScreenUpdating = False
       Application.Calculation = xlCalculationManual
'
    With ActiveSheet
        Columns("G").Cut
        Columns("D").Insert
        Columns("H").Cut
        Columns("f").Insert
    End With
'
       Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

Sub Left_Align()
'
    Application.ScreenUpdating = False
       Application.Calculation = xlCalculationManual
'
    With Sheets("Global Reach Out").UsedRange
        .Font.Name = "Times New Roman"
        .Font.Size = 12
        .HorizontalAlignment = xlLeft
        .BorderAround xlNone
        .VerticalAlignment = xlCenter
        .WrapText = False
        .EntireColumn.AutoFit
    End With
'
       Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub