Type Mismatch in Excel 2003

[mgh_mgharish]

A code like cells(1,4).End(xlUp)
works fine in Excel XP but not in 2003

Sub a()
    For i = 2 To Cells(1, 4).End(xlUp)
        If (Cells(i, 4).Value = 3.9) Then
            Range(Cells(i, 4), Cells(i, 4).End(xlToRight)).Copy Cells(i - 1, 6)
            Rows(i).Delete
        End If
    Next
End Sub

What may be the problem? What should be done?

[zilpher]

Cells(1, 4).End(xlUp) will return a range object, yet you are using this in a For Next loop. You probably want to add .Row on the end, or maybe .Value, depends what property you want to use of the cell that Cells(1, 4).End(xlUp) returns.

You also probably want to do some checks to make sure you do get a number, and gracefully exit if you don't.

HTH

[mgh_mgharish]

Yes.. but that works great in XP

[Anne Troy]

Hi, mgh. I have run your code in both 2002 and 2003, and I do not get an error in either. ?

[Jacob Hilderbrand]

What is the error message that you get?

[mgh_mgharish]

Type Mismatch
Run time error

[mgh_mgharish]

OK.. I have solved that.. That depends on the data in D1 cell..
If it is a string, it gives error

[Jacob Hilderbrand]

Ahh. Try this.

If Val(Cells(i, 4).Value) = 3.9 Then

[Anne Troy]

Cool.

Yo, mgh. I saw a really cool macro you put over there at that other site that would make a nice KB entry here. You know...the one where we "force" the user to enter dates into a cell?

Also, you can mark your own thread solved here by using Thread Tools at the top of this Q.

[mgh_mgharish]

Thanks one and all