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" wrote in message
...
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.htm
' Insert Rows -- 1997/09/24 Mark Hill
'Dim vRows As Integer
' row selection based on active cell -- rev. 2000-09-02 David McRitchie
Cells(65536, ActiveCell.Column).End(xlUp).EntireRow.Select
' ActiveCell.EntireRow.Select 'So you do not have to preselect entire
ro
vRows = 1

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

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

'rev. 2001-01-17 Gary L. Brown, programming, Grouped sheets
Dim sht As Worksheet, shts() As String, i As Integer
ReDim shts(1 To Worksheets.Application.ActiveWorkbook. _
Windows(1).SelectedSheets.Count)
i = 0
For Each sht In _
Application.ActiveWorkbook.Windows(1).SelectedShee ts
Sheets(sht.Name).Select
i = i + 1
shts(i) = sht.Name

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

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

On Error Resume Next 'to handle no constants in range -- John McKee
2000/02/01
' to remove the non-formulas -- 1998/03/11 Bill Manville
Selection.Offset(1).Resize(vRows).EntireRow. _
SpecialCells(xlConstants).ClearContents
Next sht
Worksheets(shts).Select

End Sub

Thanks

Leslie Barberie