Code does not work - clear contents

[Jeffreyxx01]

Hi guys,

I set a button on another sheet where I wanna use my code,
However this code does not work when the sheet is hided.
Can someone tell me why?

Sub Copydata()


Dim iLastRow As Long




ActiveWorkbook.Sheets("Clean1").Select
Cells.ClearContents




Sheets("Data Dump to be USED").Select
iLastRow = ActiveSheet.UsedRange.Rows.Count
Sheets("Data Dump to be USED").Range("A:B,D:G,I:O,U:W").Copy




Sheets("Clean1").Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False


End Sub

 

[mole999]

Sheets("Clean1").Cells.ClearContents

Sheets("Clean1").range("a1:z100000").ClearContents

I don't know how much you want to clear

 

[Jeffreyxx01]

Thanks, I corrected my code.