Speed Help

This is code that is at the end of my macro that takes way too long to accomplish its' necessary purpose. What can I do differently to speed it up? Thanks.


Sheet9.Select
ActiveSheet.CheckBoxes.Value = False
Range("j1.k1").Select
Selection.ClearContents
Range("n9.n9").Select
Selection.ClearContents


Sheet4.Select
ActiveSheet.CheckBoxes.Value = False
Range("j1.k1").Select
Selection.ClearContents
Range("n9.n9").Select
Selection.ClearContents

Sheet11.Select
ActiveSheet.CheckBoxes.Value = False
Range("d1.h1").Select
ActiveCell.FormulaR1C1 = "Customer Name"
Range("j1.l1").Select
ActiveCell.FormulaR1C1 = ""
Range("o9.o9").Select
Selection.ClearContents

Sheet13.Select
ActiveSheet.CheckBoxes.Value = False
Range("j1.k1").Select
Selection.ClearContents
Range("n9.n9").Select
Selection.ClearContents


Sheet15.Select
ActiveSheet.CheckBoxes.Value = False
Range("B3.E3").Select
ActiveCell.FormulaR1C1 = "Customer Name"
Range("l3.o3").Select
ActiveCell.FormulaR1C1 = ""
Range("h11.h11").Select
Selection.ClearContents


Sheet22.Select
ActiveSheet.CheckBoxes.Value = False
Range("B3.E3").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "Customer Name"
Range("h9.j9").Select
ActiveCell.FormulaR1C1 = ""

Range("h14.h14").Select
Selection.ClearContents


Dim ws1 As Worksheet

For Each ws1 In Worksheets
ws1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True, Password:="cws"
Next ws1

Sheet1.Unprotect Password:="cws"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowDeletingRows:=True, AllowInsertingRows:=True, AllowSorting:= _
True, AllowFormattingCells:=True, Password:="cws"

Sheet16.Unprotect Password:="cws"
Sheet16.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowDeletingRows:=True, AllowInsertingRows:=True, AllowSorting:= _
True, AllowFormattingCells:=True, Password:="cws"


Sheet1.Select
Application.ScreenUpdating = True


End Sub

Hi

I noticed that your code uses a period between cells in the range reference instead of a colon ( : ). Is this a cause.

I noticed the application.screenUpdating = Tru reference, Have you also turned calculation to manual at the start of the macro. This may assist in increasing speed.

Just a thought.

Cheers

Instad of code like this

Please Login or Register  to view this content.

avoid "select" and use the commands directly i.e.

Please Login or Register  to view this content.

Alf

Ps After 121 postings you better start following forum rules and wrap you code or you will make the monitors most upset!

When I do this, it gives me a compile error. "Expected End With" & the "end Sub" is highlighted in the macro. ??

Hi

The block commencing Sheet22 needs an "End with" I think

Cheers

thx. perfect