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" 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