Code failing in '97 version???

[roughleg]

I created a workseet in XP and I'm having to use it on a computer at work that only has W97. Can someone tell me what i have to do to this code to make it compatible?
It's failing at the ClearContents command.

Private Sub CommandButton1_Click()
Dim NextRow As Long
With Sheets("Data")
NextRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1

'Column A (1) of next row
.Cells(NextRow, 1).Value = ComboEmployees.Value

'Column B (2) of next row
.Cells(NextRow, 2).Value = DateBox.Value

'Column C (3) of next row
.Cells(NextRow, 3).Value = VacBox.Value

'Column D (4) of next row
.Cells(NextRow, 4).Value = PDBox.Value

'Column E (5) of next row
If OB1.Value = True Then
.Cells(NextRow, 5).Value = 8
Else
.Cells(NextRow, 5).ClearContents
End If

'Column F (6) of next row
.Cells(NextRow, 6).Value = AbsentBox.Value

End With

End Sub

 

[bandit_1981]

Did you go into VBE in 97 and see if the cells have that property in that version.

 

[roughleg]

It doesn't seem to have, if I'm checking correctly, but there should be a code that does the same thing shouldn't there??
Skip

 

[Norie]

How is the code failing?

As far as I can see there's nothing in that code that isn't in both versions, including ClearContents.

 

[roughleg]

The debug dialog box comes up with that line highlighted. I assumed that was the problem.

 

[Norie]

What actual error do you get?

 

[roughleg]

Run time error 1004
ClearContents failed at Range
Now it's seems to work most of the time. Figure that. The problem is that the user won't be able to cope.

 

[roughleg]

Run time error 1004
ClearContents failed at Range
Now it's seems to work most of the time. Figure that. The problem is that the user won't be able to cope.

 

[Norie]

I really don't think this is an issue with the version.

It sounds more like a problem with the code.

 

[bandit_1981]

Do you have the sheets on your workbook prtotected. When I had to make my sheet work in 2000 i had to change around things becuase you could not be as detailed with the sheet protection. 2000 has 3 options where 2002 has many.