Free Microsoft Excel 2013
Quick Reference
Free Microsoft 2013 Quick Reference Guide

Free Microsoft Excel 2013 Quick Reference

Excel is suddenly running very slow

In the last day or two, I have noticed that it takes forever to do very basic functions in Excel. And by basic I mean VERY basic, like hit the right arrow to move from C1 to D1. I thought it was the network connection but I copied the worksheet locally and it does the same thing. I never had any problems copying large amounts of data but now it takes forever. I'm not running any macros and there are very few formulas (And they weren't a problem before).

Is there any specific list of things to look for so I can see what is slowing everything down? I cleared the clipboard and that didn't help at all. This is very frustrating.


Post your answer or comment

comments powered by Disqus
I have an Excel sheet with a label box being used to display messages about the status of a program. The text in this box is changed once a second and the number of seconds displayed.

My program worked well for several weeks and then suddenly became very slow. I found that the "problem" is that is takes ~five seconds to change the text. If I remove the line changing the text, the program runs at the normal speed.

A possibly related problem is that it seems to take a very long time for my Excel program to load when I open it ~70 seconds!

I would appreciate any clues or direction as to where to look for the problem.

Thank you.

Randy

HI!

I RE-INSTALLED OFFICE 2000 AFTER MY HARD DRIVE WENT - IT WAS RUNNING OK
UNTIL I DOWNLOADED WINDOWS UPDATES - NOW OFFICE IS RUNNING VERY SLOW. THINGS
LIKE SAVING, OPENING AND CLOSING FILES.

Hi All,

I am new to excel macros and so please pardon my ignorance. I wrote two modules: The first one take two file and copies data and paste them one below the other; the second one then does the vlookup. The problem is that the macro is running very slow and I have a demonstration in two days. Can someone please help. Following is the code:

Module 1:
Sub Sid()

Application.ScreenUpdating = False

Dim lr As Long
Dim lr2 As Long

Sheets("Mar 11- Mar 17").Range("A:C").ClearContents

lr = Workbooks("cash.xlsx").Sheets("Page1-1").Cells(Rows.Count, 6).End(xlUp).Row
lr2 = Workbooks("card.xlsx").Sheets("Sheet1").Cells(Rows.Count, 6).End(xlUp).Row

Workbooks("cash.xlsx").Sheets("Page1-1").Range("B5:C" & lr).Resize(lr).Copy
Workbooks("travel_March_MTD(3.17)_3_20_TEST.xlsm").Sheets("Mar 11- Mar 17").Range("A" &
Rows.Count).End(xlUp)(2)
Workbooks("cash.xlsx").Sheets("Page1-1").Range("N5:N" & lr).Resize(lr).Copy
Workbooks("travel_March_MTD(3.17)_3_20_TEST.xlsm").Sheets("Mar 11- Mar 17").Range("C" &
Rows.Count).End(xlUp)(2)
Workbooks("card.xlsx").Sheets("Sheet1").Range("D2:D" & lr2).Resize(lr2).Copy
Workbooks("travel_March_MTD(3.17)_3_20_TEST.xlsm").Sheets("Mar 11- Mar 17").Range("A" &
Rows.Count).End(xlUp)(2)
Workbooks("card.xlsx").Sheets("Sheet1").Range("F2:F" & lr2).Resize(lr2).Copy
Workbooks("travel_March_MTD(3.17)_3_20_TEST.xlsm").Sheets("Mar 11- Mar 17").Range("B" &
Rows.Count).End(xlUp)(2)
Workbooks("card.xlsx").Sheets("Sheet1").Range("H2:H" & lr2).Resize(lr2).Copy
Workbooks("travel_March_MTD(3.17)_3_20_TEST.xlsm").Sheets("Mar 11- Mar 17").Range("C" &
Rows.Count).End(xlUp)(2)

Application.ScreenUpdating = True
End Sub
Module 2:
Sub fillformula()

Application.ScreenUpdating = False

Dim lastrow As Long
Range("D2").FormulaR1C1 = "=VLOOKUP(RC[-2],Locations!R3C1:R65000C5,3,FALSE)"

lastrow = ActiveSheet.UsedRange.Rows.Count + 1
Range("D2").AutoFill Destination:=Range("D2:D" & lastrow)

Application.ScreenUpdating = True

End Sub


Hey,

I am working on this excel file in which i am made around 5 sheets and have max 10 rows of data. Though i have formulas on most of the sheets....

My excel is suddenly became very slow and takes literally a minute to save and open. i was wondering if i have done something wrong or made it increase the iterations or have a circular reference error which is not showing up because i havnt done anything that great for it to be so slow....

Any views or info would be appreciated.
(i can upload the file if it is needed)

I have a workbook with several sheets in it. Nothing too fancy, some conditional formatting, a few drop down lists, 3 simple macros and a little bit of code on two of the three sheets. As I was building it it was running really fast, the macros would happen almost instantaneously. The data that moves when you select "CLOSED" on one of the drop downs would move to the other sheet without even a blink.

Now when anything moves, or a macro is run it's doing it in slow motion, slowly going through each step before completing. I'm not sure what I did or at what point is started running really slow. Maybe it's just my laptop??? The workbook is too big to upload...can I rename it something that will make the file size smaller so I can upload it for review?

Thanks all - love this forum!

Evan

Hi.
I have a Data Viewer written using VBA and Excel. Basically, it reads a binary file and presents the data in rows and columns in worksheets. I developed it using Excel 2003, but we've recently upgraded to Excel 2007 and it now runs as fast as a lame dog.

I've performed various tests to find the root cause of the problem and have found that reading and manipulating the data takes no time at all, but writing the data into individual cells is what is causing the massive slow down. I've looked online for solutions to this problem, but all I've come across is information stating that operations like writing to cells directly now seem to take up to 20x longer in Excel 2007 than in 2003.

To give an example of my issue, a data file that contained 90 days worth of data used to load in about 2 minutes - now it takes nearly 30 minutes which is making it pretty much unuseable. I've seen comments that say try and process blocks of data rather than individual cells/rows/columns, but I'm populating the cells, so I need to write to each one individually.

Does anyone have any ideas how I could get around this problem as I can't think of anything, but I'm by no means an expert user of Excel or VBA.

Cheers.

hello all,
I am having a recurring problem:
My Excel suddenly becomes VERY SLOW, I mean it takes a around 45 - 55 seconds to do the following (it used to do it in 2 - 5 seconds:

	VB:
	
ActiveChart.location Where:=xlLocationAsNewSheet, name:=chart_name 

If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines
or this one

	VB:
	
Charts.Add 

If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines
Everything else works at the speed it always did but these two chart codes take much longer.
That part of the code :
1-creates an object chart in the active sheet then
2- exports the chart as a jpg
3- moves the chart to another sheet (the reason I am doing it this way is a printing issue)

then repeats this for 2 more charts
then displays the charts on the userform.

... But once this lag happens nothing helps, I mean I can restart my PC 10 times with no effect.
Even without using VBA and doing the location changing of the chart takes that long.
it is not specefic to one file.
and even if I created an empty chart object then tried moving the location to a sheet, it takes the same time.
I had this happen once before and I eventualy decided to REPAIR Microsoft office, and that fixed the problem for 1 day, today the same problem reoccured??
Has anyone encountered this?
any ideas of things I might check?
Could it have something to do with AutoSaving or AutoRecovery (i am not sure what it is called) since that takes about the same time as what is happening? How can disable that?

UPDATE:
I opened a workbook, went to options and disabled Auto Recover (checked) and disabled the SAve Auto recover info every (unchecked), saved the workbook. closed it . reopened it, made an empty object chart, changed the location to a sheet named "trial" and pressed ok. And it took the same amount of time 46 seconds to do the change location. So I guess it is not an Auto Recover issue!!!!

Layth

have a workbook that works fine in excel 2002, but runs extremely slow in
Excel 2003. For example, one macro which is fairly complicated but doesn't
process a lot of sheets or a lot of cells, takes about 10 seconds in 2002 on
a PII-350 with 128 mb RAM and Win 98SE, and takes about 10 minutes in 2003 on
a AMD Athlon 3200+ with 512 MB RAM and XP SP2.

The following code is a stripped down version of the macro in question. It
takes 4 minutes to run.

Option Explicit
Private Sub worksheet_activate()
Dim M As Long
With Me
For M = 1 To 8
.Columns(M).ClearContents
Next M
.Cells(10, 3) = "Tax Report"
.Cells(1, 1) = "3. Mutual fund units, deferral of " _
& "eligible small business corporation shares," _
& " and other shares including "
.Cells(2, 1) = "publicly traded shares"
.Cells(4, 1) = "Number"
.Cells(4, 2) = "Name & Class"
.Cells(4, 4) = "Yr Acq"
.Cells(4, 5) = "Proceeds"
.Cells(4, 6) = "Cost Base"
.Cells(4, 7) = "Expenses"
.Cells(4, 8) = "Gain (Loss)"
End With
End Sub

This is a new install of Office 2003, so I'm wondering if something is not
set up properly. Anybody have any ideas?

have a workbook that works fine in excel 2002, but runs extremely slow in
Excel 2003. For example, one macro which is fairly complicated but doesn't
process a lot of sheets or a lot of cells, takes about 10 seconds in 2002 on
a PII-350 with 128 mb RAM and Win 98SE, and takes about 10 minutes in 2003 on
a AMD Athlon 3200+ with 512 MB RAM and XP SP2.

The following code is a stripped down version of the macro in question. It
takes 4 minutes to run.

Option Explicit
Private Sub worksheet_activate()
Dim M As Long
With Me
For M = 1 To 8
.Columns(M).ClearContents
Next M
.Cells(10, 3) = "Tax Report"
.Cells(1, 1) = "3. Mutual fund units, deferral of " _
& "eligible small business corporation shares," _
& " and other shares including "
.Cells(2, 1) = "publicly traded shares"
.Cells(4, 1) = "Number"
.Cells(4, 2) = "Name & Class"
.Cells(4, 4) = "Yr Acq"
.Cells(4, 5) = "Proceeds"
.Cells(4, 6) = "Cost Base"
.Cells(4, 7) = "Expenses"
.Cells(4, 8) = "Gain (Loss)"
End With
End Sub

This is a new install of Office 2003, so I'm wondering if something is not
set up properly. Anybody have any ideas?

Hi all,

this is driving me mad. I have written some very basic code to format a report in excel. When I run the code it take a very long time to execute and I receive the following error message at the foot of the page:

Cell (press esc to cancel)

Annoyingly I have had this error before and found the solution on the web but can't remember where. If memory serves my right I deleted some temp files from a specific location on my hard drive??? Any help would be appreciated.

I am running Excel 2007.

Thanks in advance

I have a workbook that works fine in excel 2002, but runs extremely slow in
Excel 2003. For example, one macro which is fairly complicated but doesn't
process a lot of sheets or a lot of cells, takes about 10 seconds in 2002 on
a PII-350 with 128 mb RAM and Win 98SE, and takes about 10 minutes in 2003 on
a AMD Athlon 3200+ with 512 MB RAM and XP SP2.

The following code is a stripped down version of the macro in question. It
takes 4 minutes to run.

Option Explicit
Private Sub worksheet_activate()
Dim M As Long
With Me
For M = 1 To 8
.Columns(M).ClearContents
Next M
.Cells(10, 3) = "Tax Report"
.Cells(1, 1) = "3. Mutual fund units, deferral of " _
& "eligible small business corporation shares," _
& " and other shares including "
.Cells(2, 1) = "publicly traded shares"
.Cells(4, 1) = "Number"
.Cells(4, 2) = "Name & Class"
.Cells(4, 4) = "Yr Acq"
.Cells(4, 5) = "Proceeds"
.Cells(4, 6) = "Cost Base"
.Cells(4, 7) = "Expenses"
.Cells(4, 8) = "Gain (Loss)"
End With
End Sub

This is a new install of Office 2003, so I'm wondering if something is not
set up properly. Anybody have any ideas?

Hello,

I have a very large worksheet that contains lots of formulas and is now
running slow. What steps can I take to ease this slowness?

Thank you

Hello Everyone,

I have a macro in Excel 2003 and I saved that file in Excel 2007 (xlsm) version; however, the code is working very very slow. In excel 2003 it used to take me 1-2 minutes but now its taking over 20 mins.

Below is the code that I have in excel 2003. it copies the data from another tab of the same spreadsheet. Please suggest if I need to make any changes in the code to make its speed better.

Thanks!
Kapil

Sub CopyColC()

Dim Sht1Rng As Range
Dim Sht2Rng As Range
Dim B As Range
Dim D As Range
Dim mainSht As Worksheet
Dim backUpSht As Worksheet
Dim CellToCopyTo As Range

'Compares the ID cell in both worksheets to each other

Set mainSht = Worksheets("Main")
Set backUpSht = Worksheets("Backup")

Set Sht1Rng = Worksheets("Main").Range("B6",
Worksheets("Main").Range("B65536").End(xlUp))

Set Sht2Rng = Worksheets("Backup").Range("B6",
Worksheets("Backup").Range("B65536").End(xlUp))

For Each B In Sht1Rng
Set D = Sht2Rng.Find(B.Value, LookIn:=xlValues)

'If same value found in col B of "Backup" sheet then copy col C
If Not D Is Nothing Then
            
            backUpSht.Cells(D.Row, 3).Copy
            
            Set CellToCopyTo = mainSht.Cells(B.Row, 3)
            CellToCopyTo.PasteSpecial xlPasteValues
                     
End If

Set D = Nothing

Next B

Application.CutCopyMode = False

End Sub


I have developed a basic worksheet that doesn;t contain too many formulas and
is around 15,000kb in size. Everytime I try and copy a formula the workbook
runs extremely slow and it says 'Calculating Cells' in the bottom left of the
screen- this can take up to 30-40 seconds to populate 4-5 cells. Is this to
be expected if there are a few formulas or is there anything I can do??

Cheers,

i have a web application that streams an excel workbook to the client. i
want to prevent the user from saving the workbook locally. the user should
only be able to work with the workbook through the web browser. is there a
way to tell if excel is being run in a web browser?

I'm interested in determining whether MS Excel is running when I launch my MS Excel program. How do I do that?

Thanks,

Hello Group,

I would appreciate anyones help making my macro more efficient. This macro is used on a spreadsheet of 20,000 lines daily, and it is running very slow (20-40 minutes).

Thanks.

Sub OHRTODDIOPS1()
'
' OHRTODDIOPS1 Macro
' 
'
' '

Application.ScreenUpdating = False

'FORMULAS FOR MACRO
Const strFormula1 As String = ",'[ON-HAND REPORT MACRO.XLS]RIG LIST'!$A$2:$G$200,5,0)"
Const strFormula2 As String = ",'[ON-HAND REPORT MACRO.XLS]RIG LIST'!$J$2:$K$200,2,0)"
Const strFormula3 As String = ",'[ON-HAND REPORT MACRO.XLS]DAYS RANGE'!$A$2:$J$550,7,0)"
Const strFormula4 As String = ",'[ON-HAND REPORT MACRO.XLS]DAYS RANGE'!$A$2:$J$550,8,0)"
Const strFormula7 As String = ",'[ON-HAND REPORT MACRO.XLS]RIG LIST'!$A$2:$G$200,7,0)"
Const strFormula5 As String = ",'[ON-HAND REPORT MACRO.XLS]STACKED LIST'!$A:$F,6,FALSE)"
Const strFormula6 As String = ",'[ON-HAND REPORT MACRO.XLS]AGED INVENTORY'!$B:$H,6,FALSE)"
Const strFormula8 As String = ",'[ON-HAND REPORT MACRO.XLS]DAYS RANGE'!$A$2:$J$550,9,0)"
Const strFormula9 As String = ",'[ON-HAND REPORT MACRO.XLS]DAYS RANGE'!$A$2:$J$550,10,0)"



'SORT, ADD COLUMN HEADERS, AND AUTOFILTER
Dim lngLastRow As Long
Dim rngCell As Range
    
    With Cells
        .ColumnWidth = 9.43
        .RowHeight = 12.75
        .Borders.LineStyle = xlNone
    End With
    Columns("A:A").Insert Shift:=xlToRight
    Range("A1").FormulaR1C1 = "Coordinator"
    Range("AV1").FormulaR1C1 = "OPS Days Range"
    Range("AW1").FormulaR1C1 = "MR Days Range"
    Range("AX1").FormulaR1C1 = "Days Range Since MR'd"
    Range("AY1").FormulaR1C1 = "Days Range Since RTP'd"
    Range("AZ1").FormulaR1C1 = "Stacked / Hold Status"
    Range("BA1").FormulaR1C1 = "Sub-Coordinator"
    Range("BB1").FormulaR1C1 = "SCH B IN DESC"
    Range("BC1").FormulaR1C1 = "NOTES"
    Rows("1:1").AutoFilter
    
    
'FORMULAS FOR COLUMN AV,AW,AX,AY; IF FORMULA FOR COLUMN A; TO SHOW VALUES ONLY (NOT FORMULAS)
    lngLastRow = Range("E" & Rows.Count).End(xlUp).Row
    For Each rngCell In Range("A2:A" & lngLastRow)
        rngCell.Offset(0, 47).Formula = "=VLOOKUP(X" & rngCell.Row & strFormula8
        rngCell.Offset(0, 48).Formula = "=VLOOKUP(X" & rngCell.Row & strFormula3
        rngCell.Offset(0, 49).Formula = "=VLOOKUP(Z" & rngCell.Row & strFormula4
        rngCell.Offset(0, 50).Formula = "=VLOOKUP(AC" & rngCell.Row & strFormula9
        rngCell.Offset(0, 51).Formula = "=IF(ISERROR(VLOOKUP(C" & rngCell.Row & strFormula5 &
"),""NO"",VLOOKUP(C" & rngCell.Row & strFormula5 & ")"
        rngCell.Offset(0, 52).Formula = "=IF(ISERROR(VLOOKUP(C" & rngCell.Row & strFormula7 &
"),""0"",VLOOKUP(C" & rngCell.Row & strFormula7 & ")"
        rngCell.Offset(0, 53).Formula = "=IF(ISERROR(FIND(""SCH
B"",RC[-47],1)>=1),""NO"",""YES"")"
        rngCell.Offset(0, 54).Formula = "=IF(ISERROR(VLOOKUP(T" & rngCell.Row & strFormula6 &
"),""(blank)"",VLOOKUP(T" & rngCell.Row & strFormula6 & ")"
        If rngCell.Offset(0, 2).Value = "" Then
            rngCell.Formula = "=VLOOKUP(AM" & rngCell.Row & strFormula2
        Else
            rngCell.Formula = "=VLOOKUP(C" & rngCell.Row & strFormula1
        End If
        rngCell.Value = rngCell.Value
        rngCell.Offset(0, 49).Resize(1, 2).Value = rngCell.Offset(0, 49).Resize(1, 2).Value
    Next rngCell
    
'PASTE VALUES
    Cells.Select
    Range("BW1").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("CK1").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A1").Select

  
End Sub


I have a workbook with several sheets in it. Nothing too fancy, some conditional formatting, a few drop down lists, 3 simple macros and a little bit of code on two of the three sheets. As I was building it it was running really fast, the macros would happen almost instantaneously. The data that moves when you select "CLOSED" on one of the drop downs would move to the other sheet without even a blink.

Now when anything moves, or a macro is run it's doing it in slow motion, slowly going through each step before completing. I'm not sure what I did or at what point is started running really slow. Maybe it's just my laptop??? The workbook is too big to upload...can I rename it something that will make the file size smaller so I can upload it for review?

Thanks all - love this forum!

Evan

I have been experiencing this issue for a few months now with excel 2003.

When I minimized excel, the taskbar button disappears and I am unable to see
the open worksheet anymore. If I open up Task Manager, under applications I
can see that excel is still running but in order to use it I must select it
and then switch to that task. Is there a way to make excel stop disappearing
from the taskbar? Although I can get back to my workbook it is starting to
become frustrating that I must use the task manager.

Excel is the only program experiencing this error. All other office programs
work great.

Any suggestions here will be greatly appreciated

Thanks

--
Todd Forbes
Northwest School Division
Saskatchewan, Canada

Hi there! I have the following situation:

At work, I had an NT box with Office 2000 Pro. Then they gave me a new
box with winXP and OfficeXP (and winfax standalone).

Problem:
When I double click on an excel file, excel opens, but the file does
not open (blank excel screen).

If excel is already open (without any files open) and then I double
click on an excel file (or use the file-open menu), then the file opens
just fine.

Same situation if I try to open and excel file I have received as
attachment in outlook.

Any hints?

Thanks,
Stratos

I have a macro that I want to change a worksheet page settings.

However this runs very slow.

Are there any tips on how to speed this up.

Also can mutiple sheets be changed at the same time with the same settings
e.g page layout, margins, rows to repeat at top etc.

Hello all.

I wrote what I thought was a pretty simple procedure to pull out selected info. from a colleague's report. I'm not finished yet, but the rest of the program would be much of the same from the first part. However, it runs very slow so before I continue I wanted some assistance with finding out what's causing the slow-down. I would greatly appreciate any guidance you can provide. Thanks!

Sub PDTrendingCalculate()
Range("Q2") = "#"
Range("R2") = "Week"
Range("S2") = "Pre-Procedure PDs"
Range("T2") = "Index Procedure PDs"
Range("U2") = "Discharge PDs"
Range("V2") = "30D PDs"
Range("W2") = "6M PDs"
Range("X2") = "Revascularization PDs"
Range("Y2") = "#Pts"
Range("Z2") = "Pre-Procedure Value"
Range("AA2") = "Index Procedure Value"
Range("AB2") = "Discharge Value"
Range("AC2") = "30D Value"
Range("AD2") = "6M Value"
Range("AE2") = "Revascularization Value"
Range("Q2:AE2").Select
With Selection
.Font.Bold = True
End With
Columns("S:AE").EntireColumn.AutoFit
Range("Q3").Select
ActiveCell = 1
Do
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
Loop Until IsEmpty(ActiveCell.Offset(1, 8))
Range("R3").Select
ActiveCell = "4/6/2009"
Do
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 7
Loop Until IsEmpty(ActiveCell.Offset(1, 7))
Range("S3").Select
Do
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(--(R3C7:R3000C7+0>=OFFSET(RC,0,-1)),--(R3C7:R3000C7+0<=(OFFSET(RC,0,-1)+6)),--(R3C10:R3000C10=""Pre-procedure""))"
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(1, 6))
Range("Z3").Select
Do
ActiveCell.FormulaR1C1 = "=RC[-7]/RC[-1]"
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
Range("AA3").Select
Do
ActiveCell.FormulaR1C1 = "=RC[-7]/RC[-2]"
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
Range("AB3").Select
Do
ActiveCell.FormulaR1C1 = "=RC[-7]/RC[-3]"
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
Range("AC3").Select
Do
ActiveCell.FormulaR1C1 = "=RC[-7]/RC[-4]"
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
Range("AD3").Select
Do
ActiveCell.FormulaR1C1 = "=RC[-7]/RC[-5]"
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
Range("AE3").Select
Do
ActiveCell.FormulaR1C1 = "=RC[-7]/RC[-6]"
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
End Sub

I have a user on my network who is a heavy excel 2003 user. She is able to open and work in her files fine, but after she prints or even does a print preview excel starts to run very slow. With task manager open, just the action of highlighting cells causes excel to use 25%+ of the CPU. I have tried reinstalling her print drivers, which did not help.

Hello!
I am using excel for man hours calculation, since we deal with man power supply.
My file goes around 8500 to 10000 rows and
400 to 425 columns.

When I try to run macro or any function (copy, paste, save, bold, etc..) it is very very slow.
In excel status bar it shows like this
1. Calculating cells: 0% - in MS Excel 2003
2. Calculating: (4 Processor(s)) : 5% - In Excel 2007.
Minimum it takes 1 hour to paste 4 cell values.

My computer is Desktop :- DELL Optiplex 790 - Core i3 with 4GB RAM. Samsung monitor SyncMaster 743. So my computer is in good configuration.

In Macro settings I chose “Enable all macros (not recommended, potentially dangerous code can run)

I do not know what went wrong in my computer. IT IS VERY VERY SLOW.

Can any Genius help me what I supposed to do to speed up my excel application?
Is there any settings to alter?

Please help me.

Regards,
Charles Paul

Below is my Macro:

Option Explicit

Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
'Double Shift
Dim X1 As String
Dim X2 As String
Dim X3 As String
Dim X4 As String

For i = 10 To 8371
X1 = Me.Cells(i, 1)
X2 = Me.Cells(i, 2)

For j = 10 To 8371


X3 = Me.Cells(j, 1)
X4 = Me.Cells(j, 2)
If X1 = X3 And X2 = X4 And j <> i Then
Range("DJ" & j & ":" & "DM" & j).Interior.Color = RGB(0, 5900, 0)
End If

Next
Next

End Sub
Sub HideCol()
' hides the columns marked with an X
    Showcol
    Rows("2:2").SpecialCells(xlCellTypeFormulas, 22).EntireColumn.Hidden = True
End Sub
Sub Showcol()
    Cells.EntireColumn.Hidden = False
End Sub

Sub Flip()
' thanks to Roger Govier for suggesting this macro
'   that hides the unmarked columns (those with a zero instead of an X)
  Showcol
  Rows("2:2").SpecialCells(xlCellTypeFormulas, 21).EntireColumn.Hidden = True
  HideCol
End Sub
Sub Button2_Click()
Dim X1 As Integer
Dim X2 As Integer
Dim X3 As Integer

Dim X4 As Integer
Dim na1 As String
Dim na2 As String

Dim date1 As String
Dim date2 As String

Dim thod As String
'list of employees made for OT list after all calculation in right side
For X1 = 8 To 342
'column number which creteria name + number lies
na2 = Me.Cells(X1, 135)
'within this column full month from 01.01.10 to 31.01.10)
For X2 = 170 To 200
'row number where all heading lies
date2 = Me.Cells(7, X2)
'this is entire calculation total number of which lies in column "A"
For X4 = 8 To 8371

date1 = Me.Cells(X4, 1)
na1 = Me.Cells(X4, 2)
'MsgBox (" -0- " & na1 & " -1-  " & na2 & " -2-  " & date1 & " -3-
" & date2)
If na2 = na1 And date2 = date1 And Me.Cells(X1, X2) = "" Then
Me.Cells(X1, X2) = Me.Cells(X4, 235)

ElseIf na2 = na1 And date2 = date1 And Me.Cells(X1, X2) <> "" Then
Me.Cells(X1, X2) = Me.Cells(X1, X2) & "/" & Me.Cells(X4, 235)

End If
Next
Next
Next
End Sub



No luck finding an answer? You could always try Google.