Quicker VBA

**sparx** · 11-10-2007, 06:34 AM

Hi All, Is there a more efficient way of writing/running the following VBA code? as this code clears the contents from cells across approx 16 sheets. Any help would be greatly appreciated.

Application.ScreenUpdating = False
        
    Sheets("Access").Range("E12:P12").ClearContents
    Sheets("Access").Range("E14:P14").ClearContents
    Sheets("Access").Range("G21:S28").ClearContents
    
    Sheets("Prefs").Range("M6:V11").ClearContents
    Sheets("Prefs").Range("Q13:V18").ClearContents
    Sheets("Prefs").Range("Q20:V28").ClearContents
    Sheets("Prefs").Range("C31:V39").ClearContents
    Sheets("Prefs").Range("O43:V43").ClearContents
    Sheets("Prefs").Range("C45:V45").ClearContents
    Sheets("Prefs").Range("C47:V47").ClearContents
    Sheets("Prefs").Range("C49:V49").ClearContents
    Sheets("Prefs").Range("C51:V51").ClearContents
    Sheets("Prefs").Range("C53:V53").ClearContents
    Sheets("Prefs").Range("B57:B64").ClearContents
    Sheets("Prefs").Range("E57:V64").ClearContents
    
    Sheets("Ctcts").Range("A2:G1001").ClearContents

**VBA Noob** · 11-10-2007, 06:47 AM

Maybe

 With Sheets("Access")
 .Range("E12:P12,E14:P14,G21:S28").ClearContents
 End With
 With Sheets("Prefs")
 .Range("M6:V11,Q13:V18,Q20:V28,C31:V39,O43:V43,C45:V45,C47:V47,C49:V49,C51:V51,C53:V53,B57:B64,E57:V64").ClearContents
 End With
With Sheets("Ctcts")
.Range("A2:G1001").ClearContents
End with

Quicker VBA

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Quicker VBA

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions