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