Public Sub testy()
Dim num As Long
Dim mynum As Range
Dim cell As Range
Dim oFind As Range
Dim iCol As Long

Worksheets("audit").Select
Set mynum = Range(Range("a2"), Range("a2").End(xlDown))

For Each cell In mynum
Set oFind = Nothing
Set oFind = Worksheets("rows").Cells.Find(cell.Value)
If Not oFind Is Nothing Then
cell.Offset(0, 1) = oFind.column
End If
Next cell

End Sub


--
HTH

Bob Phillips

"mjack003" wrote in
message ...

Im getting a "Object variable or object variable not set" error on the
line "cells.find(num).activate". How can I get around this?


--
mjack003
------------------------------------------------------------------------
mjack003's Profile:
http://www.excelforum.com/member.php...fo&userid=5141
View this thread: http://www.excelforum.com/showthread...hreadid=468447