I have six sheets. Their names are Sheet 1, Sheet 2, Sheet 3, Sheet 4, Sheet
5, and Sheet 6. This part of the code is having the problem I think.

Sheets(ms).Range("C7,C9,C16:C23,C26:C33").ClearCon tents

It gets highlighted in yellow with a yellow arrow pointing to it when I try
to run the macro. Any ideas?



"Don Guillett" wrote:


Number of sheets? Name of sheets?
If desired, send your workbook with these snippets and the code to my
address below

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MSE" wrote in message
...
Thank you for your input. When I try to run the Macro the screen
switches
to visual basic and I get a message that says Run-time error '9' Subscript
out of range, Continue, End, Debug, Help. Any thoughts?

"Don Guillett" wrote:

try this.

Sub clearcellsonsheets()
For i = 1 To 5
ms = "sheet" & i
Sheets(ms).Range("C7,C9,c16:C23,C26:C33").ClearCon tents
Next i
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MSE" wrote in message
...
I have a workbook with six worksheets. On Sheet 6, I want to create a
macro
linked to an Excel button from the forms toolbar. I want the macro to
only
clear the contents of Sheet 1, Sheet 2, Sheet 3, Sheet 4, and Sheet 5
in
the
following cells C7, C9, C16:C23, and C26:C33. I am trying to write a
code
that will do this, any thoughts?