CommandButton to Clear Contents

[Kaiser6]

I need to create a command button on sheet 1 of a workbook which clears the contents in rows 2-500 in sheets 2-9 of a workbook when it is selected.

 

[Smitty]

Welcome to the Board!

You can accomplish that by recording a macro grouping the sheets, then selecting the rows and deleting them.

Feel free to post back the code that you get and someone can clean it up for you.

 

[Kaiser6]

Sub FJ
 
Sheets(Array([FONT=Calibri]“ACTIVE-19A”,”PENDING-19A”,”SUSPENDED-19A”,”DENIED-DOT”,”GRANTED-DOT”,”WAITING-DOT”,”Waiting for carrier response”,”NO ACTION REQUIRED”,”Blank”[/FONT]
)).Select

Range("A2:Z600").Select 
    Selection.ClearContents 

End Sub
 
[Code]
 
Can't get this code to work any ideas????????:evil:

 

[bjorgen]

Sub FJ
 
Sheets(Array([FONT=Calibri]“ACTIVE-19A”,”PENDING-19A”,”SUSPENDED-19A”,”DENIED-DOT”,”GRANTED-DOT”,”WAITING-DOT”,”Waiting for carrier response”,”NO ACTION REQUIRED”,”Blank”[/FONT]
)).Select

Range("A2:Z600").Select 
    Selection.ClearContents 

End Sub

Can't get this code to work any ideas????????

When you say can't get the code to work, what do you mean?

I tried the same code (different sheet names) and it worked fine for me.

Have you tied this macro to the "on click" code for your button yet?

If not place your button and then right click and assign macro. Find your recorded macro and try that.

 

[Kaiser6]

I get a syntax error when running

 

[bjorgen]

I get a syntax error when running

Are all of the sheet names correct in the sheet array?

Also, what does the error say, exactly?

 

[Kaiser6]

compile error

syntax error

 

[bjorgen]

compile error

syntax error

Are all of the sheet names correct?

I did test your code, albeit with sheet1, sheet2, etc and it worked for me.

Maybe some of the special characters are ruining the fun. Try renaming the tabs, renaming them in the macro to match, and try again.