Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code running slowly
Not sure why it runs slow. I thought the Application.ScreenUpdating =
False would do the trick. Sub Holidays() Application.ScreenUpdating = False 'New Years Day With Sheets("January") If Range("C4") = Range("R2") Then Range("B27").Value = "New Years" Range("B27").HorizontalAlignment = xlCenter Range("B30").Value = "Day" Range("B30").HorizontalAlignment = xlCenter Range("A3").Select ElseIf Range("B27") = "New Years" Then Range("B27").Value = "" Range("B27").HorizontalAlignment = xlLeft Range("B27").IndentLevel = 1 Range("B30").Value = "" Range("B30").HorizontalAlignment = xlLeft Range("B30").IndentLevel = 1 Range("A3").Select End If If Range("E4") = Range("R2") Then Range("D27").Value = "New Years" Range("D27").HorizontalAlignment = xlCenter Range("D30").Value = "Day" Range("D30").HorizontalAlignment = xlCenter Range("A3").Select ElseIf Range("D27") = "New Years" Then Range("D27").Value = "" Range("D27").HorizontalAlignment = xlLeft Range("D27").IndentLevel = 1 Range("D30").Value = "" Range("D30").HorizontalAlignment = xlLeft Range("D30").IndentLevel = 1 Range("A3").Select End If End With Application.ScreenUpdating = True End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Update "centerheader" code running slowly need help speeding up | Excel Programming | |||
Macro with column delete running very slowly | Excel Programming | |||
HELP...anybody got any ideas why this is running so slowly...... | Excel Programming | |||
Can you help me figure out why my macro is running slowly? | Excel Programming | |||
Paste code running extremely slowly... | Excel Programming |