Codes that will help your Microsoft Excel Macro Speed up

'speed up macro
'insert in the top of the code


with application 
.calculation = xlcalculationmanual
.screenupdating =false
.displaystatusbar = false
'.enablevents = false       'remove (') if there is no object or picture
end with


'insert to the bottom of the code

with application 
.calculation = xlcalculationautomatic
.screenupdating =true
.displaystatusbar = true
'.enablevents = true
end with