Slette data i ark

Jeg vil gerne have en simpel makro, der sletter data i et ark. Jeg står i et andet ark, og kommer ikke over i det ark, som jeg vil have slettet data i.

Jeg har brugt denne kode:
'Sletter Dag - Data
    Sheets("Dag - Data").Select
    Cells.Select
    Selection.ClearContents
    Range("A1").Select

Men da jeg skal skjule arket, kan denne kode ikke bruges!
Har I nogle forslag?