Hello all,
Could you please help me optimizing VBA?
I got series of VBA scripts running every hour and I think it can be optimized as I have seen excel being not responded for over 12 minutes so I believe it just needs optimization. Please see code below:
Sub clear_sheets()
Sheets("S01").Select
Range("A3:C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("S02").Select
Range("A3:C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("S03").Select
Range("A3:C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("S04").Select
Range("A3:C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("S05").Select
Range("A3:C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("S06").Select
Range("A3:C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("S07").Select
Range("A3:C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("S08").Select
Range("A3:C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("S09").Select
Range("A3:C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("S10").Select
Range("A3:C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("S11").Select
Range("A3:C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Sheets("MENU").Select
End Sub
Bookmarks