Skip to content

Instantly share code, notes, and snippets.

@scorchio

scorchio/worksheet_clear.vb

Created December 19, 2013 11:12
Download ZIP

Revisions

  1. scorchio created this gist Dec 19, 2013.
    11 changes: 11 additions & 0 deletions worksheet_clear.vb
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,11 @@
    Sub ClearSheet()
    Dim sheetToClear As Worksheet
    Set sheetToClear = ActiveSheet ' Replace this with the sheet reference
    ' Delete something specific...
    ' sheetToClear.Cells.ClearFormats
    ' sheetToClear.Cells.ClearContents
    ' sheetToClear.Cells.ClearHyperlinks

    ' ...or every kind of data in the cells
    sheetToClear.Cells.Clear
    End Sub