On Tue, 1 Mar 2005 11:59:08 -0800, "filo666"
wrote:

I have a sheet with 5,000 cells (a2:a5000) with numbers, and 5,000
cells(b2:b5000) with numbers, what I want to do is if a2 = b2 print "" and if
they are different (else) print the Date, as I cant print 5000 times the
folowing formula in VB:
If Worksheets("Sheet3").[A11] = Worksheets("Sheet3").[b11] Then
Worksheets("Sheet3").[c11] = "" Else Worksheets("Sheet3").[c11] = Date


I need an other way to do what I want, Do you have any idea????

regards

Perhaps:

===================
Sub foo()
Dim i As Integer

For i = 2 To 5000
If Worksheets("Sheet3").Cells(i, 1) = Worksheets("Sheet3").Cells(i, 2) Then
Worksheets("Sheet3").Cells(i, 3) = ""
Else
Worksheets("Sheet3").Cells(i, 3) = Date
End If
Next i
End Sub
===================


--ron