Excel being weird !

[TheBionicOrange]

I've got the following code, which basically adds sheets on the fly as and when required. it puts the new sheet at the end and gives it a unique name.
Problem I have is that it works on some machines and not others.
Same version of the EXE, all the right DLL's installed etc etc, but only works on some and not all

Do While Not rs.EOF
                    .ActiveCell.Value = rs!CON_LOCN
                    .ActiveCell.Offset(0, 1).Value = RTrim(rs!CON_COMP)
                    .ActiveCell.Offset(0, 2).Value = RTrim(rs!CON_ELEM)
                    .ActiveCell.Offset(0, 3).Value = RTrim(rs!CON_COND)
                    .ActiveCell.Offset(0, 4).Value = RTrim(rs!CON_REMW)
                    .ActiveCell.Offset(0, 5).Value = RTrim(rs!CON_QUAN)
                    .ActiveCell.Offset(0, 6).Value = RTrim(rs!CON_PRIO)
                    .ActiveCell.Offset(0, 7).Value = RTrim(rs!CON_BUDG)
                    .ActiveCell.Offset(0, 8).Value = RTrim(rs!CON_COMM)
                    .ActiveCell.Offset(1, 0).Select
                    RowCount = RowCount + 1 ' £££
                    If RowCount > 18 Then
                        ConditionPageNo = ConditionPageNo + 1
                        ' Create new Page
                        [B]objExcel.Sheets(objExcel.ActiveSheet.Name).Copy After:=objExcel.Sheets(objExcel.Sheets.Count)
                        .ActiveSheet.Name = "Condition Data-Details" & ConditionPageNo[/B]
                        ' Blank out contents
                        .Range("A8:N61").Select
                        .Selection.ClearContents
                        .Range("A8").Select
                        ' Reset row counter
                        RowCount = 1
                    End If
                    
                    rs.MoveNext
                Loop

I've highlighted the offending bit.
On the machines it doesn't work on I get the error below.



Any help would be greatly appreciated.

Steve.

[RobDog888]

Looks like your not renaming it to a unique name.

[TheBionicOrange]

Well yes I would draw that conclusion too, were it not for the fact that it works perfectly well on my pc.
Surely if that were the issue I would have this problem everywhere wouldn't I ?!

[RobDog888]

On the ones where it doesnt work what are the versions of Excel installed?

[TheBionicOrange]

they are the same as mine .. Excel 2000. There may or may not be a difference in service pack levels, but thats all I could imaging it could be.
We are all on Windows XP as well, although I wouldn't have thought that would have had a bearing on it.

[RobDog888]

How about not using the ActiveSheet object as if the user accidentally sets another sheet active it will throw off your naming convection?

[cssriraman]

I don't find any errors on your code!

[TheBionicOrange]

Rob ... they don't get the chance ... its all runnign background, they don't even see it.
cssriraman ... neither do I, but I must be missing something.

I strongly suspect its a difference in Excel versions, because otherwise it wouldn't work for me either.
I thought maybe running it from development mode rather than an exe might have caused a difference somehow, so I compiled it and used the same EXE on my machine and a problem machine .... and got the same results ... worked perfectly for me, and not for them.

I checked for rogue Excel processes, but I'm clearing those down properly too, so I'm really stumped. I hate these kind of problems. I would rather it was just a coding issue.

[RobDog888]

What about any service packs for Office/Excel? Are they all on the same SP too?

[Webtest]

Show us more of your code ... there is a "With" statement somewhere previous to the code you've shown. I'm wondering about your ".ActiveSheet" statement ... especially the "." prefix.

[TheBionicOrange]

Yeah OK. Here it is ....

[Webtest]

And what are you writing this in ... Access ... VB6 ... .Net ... ???

[TheBionicOrange]

I'm writing it in VB6