View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Cheryl Cheryl is offline
external usenet poster
 
Posts: 144
Default How to run same macro on 14 out 15 worksheets

Hi Jacob,

Thanks for you fast response. In the left treeview, I have 2
"ThisWorkbook"s, one under VBAProject (PERSONAL.XLS) and one under VBAProject
(PERSONAL2.XLS). Both seem to have the same stuff in them.

I double clicked the first "This Workbook" and copied the code you provided,
did a save, then cycled through my worksheets. Only one of them (Sheet9,
"SEP3 Support) actually has data in C3:C12, but nothing happened when I chose
that sheet.

Cheryl

"Jacob Skaria" wrote:

Hi Cheryl

From workbook launch VBE using short-key Alt+F11. From the left treevew
double click 'This Workbook '. Paste the below code and try selecting each
sheet.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name < "Instructions" Then _
Range("C3:C12").ClearContents
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Cheryl" wrote:

Excel 2003 (11.8307.8221) SP3
Windows XP

I have a workbook that contains 15 worksheets. The first one is an
"Instructions" page which contains links to the other 14. When any of the
other 14 are selected, I would like to automatically clear C3 through C12. Is
there an easy way to do this?

Thanks!