Macro working in Excel 2003; not working in Excel 2000

L

Leslie Barberie

Can someone help me figure out why this macro works in Excel 2003 and not in Excel 2000

I developed these worksheets on my computer which has Excel 2003. They need to run on another computer that uses Excel 2000.

I'll appreciate any help I can get on this. The sooner, the better

Private Sub Workbook_Open(
' Documented: http://www.mvps.org/dmcritchie/excel/insrtrow.ht
' Re: Insert Rows -- 1997/09/24 Mark Hill <[email protected]
'Dim vRows As Intege
' row selection based on active cell -- rev. 2000-09-02 David McRitchi
Cells(65536, ActiveCell.Column).End(xlUp).EntireRow.Selec
' ActiveCell.EntireRow.Select 'So you do not have to preselect entire r
vRows =

' If vRows <> 1 The
' vRows = Application.InputBox(prompt:=
' "How many rows do you want to add?", Title:="Add Rows",
' Default:=1, Type:=1) 'type 1 is numbe
' If vRows = False Then Exit Su
' End I

'if you just want to add cells and not entire row
'then delete ".EntireRow" in the following lin

'rev. 2001-01-17 Gary L. Brown, programming, Grouped sheet
Dim sht As Worksheet, shts() As String, i As Intege
ReDim shts(1 To Worksheets.Application.ActiveWorkbook.
Windows(1).SelectedSheets.Count
i =
For Each sht In
Application.ActiveWorkbook.Windows(1).SelectedSheet
Sheets(sht.Name).Selec
i = i +
shts(i) = sht.Nam

Selection.Resize(rowsize:=2).Rows(2).EntireRow.
Resize(rowsize:=vRows).Insert Shift:=xlDow

Selection.AutoFill Selection.Resize(
rowsize:=vRows + 1), xlFillDefaul

On Error Resume Next 'to handle no constants in range -- John McKee 2000/02/0
' to remove the non-formulas -- 1998/03/11 Bill Manvill
Selection.Offset(1).Resize(vRows).EntireRow.
SpecialCells(xlConstants).ClearContent
Next sh
Worksheets(shts).Selec

End Su

Thank

Leslie Barberi
 
B

Bob Phillips

It runs through okay for me on Excel 2000. What do you get?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

Leslie Barberie said:
Can someone help me figure out why this macro works in Excel 2003 and not in Excel 2000?

I developed these worksheets on my computer which has Excel 2003. They
need to run on another computer that uses Excel 2000.
 
T

Tom Ogilvy

I ran without error for me in Excel 2000 and copied down a row in the
grouped sheets when I opened the workbook. Perhaps you need to define what
does not work means specifically.

the macro appears to be heavily dependent on what the situation was in terms
of selection when the workbook was last saved. This would appear to be a
poor approach for a workbook_open macro.

--
Regards,
Tom Ogilvy


Leslie Barberie said:
Can someone help me figure out why this macro works in Excel 2003 and not in Excel 2000?

I developed these worksheets on my computer which has Excel 2003. They
need to run on another computer that uses Excel 2000.
 
L

Leslie Barberie

Tom

Thanks for your help. I figured it out. The Excel 2000 computer automatically disabled the macro

Leslie Barberi
----- Tom Ogilvy wrote: ----

I ran without error for me in Excel 2000 and copied down a row in th
grouped sheets when I opened the workbook. Perhaps you need to define wha
does not work means specifically

the macro appears to be heavily dependent on what the situation was in term
of selection when the workbook was last saved. This would appear to be
poor approach for a workbook_open macro
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro Help 0
Inserting Row 3
Insert letter in cell 2
Insert row and copy formulas 5
Add a new code macro 0
Add New Students 2
Compare master list and update 2
Macro to insert and delete rows 1

Top