Sorry guys I went on vacation
Here is the code:
Sub Jackie2()
'
' Jackie2 Macro
'
'
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim LR As Long
LR = Range("D7").End(xlDown).Row
With Range(Cells(7, 1), Cells(LR, 47))
.Formula = .Value
End With
Cells.FormatConditions.Delete
ActiveWindow.FreezePanes = False
Cells.Select
Range("A300").Activate
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("G:G").Select
Selection.Delete Shift:=xlToLeft
ActiveWorkbook.Worksheets("Commercial Upgrades Projects").AutoFilter.Sort. _
SortFields.Add Key:=Range("E6:E1048576"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Commercial Upgrades Projects").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
I am still new and I'm sure there are better ways to do the operation however it is for work so I don't have much time to improve/test. This macro does everything I need it to do and it runs in the blink of an eye on the 1st tab of my work sheet. On the 2nd tab (the tab the macro is for) it is very slow. The same is true for any other macros I have made....all run very quick on tab 1 but not tab 2.
I cannot find anything that would indicated what is wrong? From all that I can tell the macro itself is not the problem but some formatting of the page?