The only problem that I see is that you never set the value of varval. The line
Activecell.Value = varval
sets the active cell to varval, but where is varval set?

--
HTH...

Jim Thomlinson


"Don S" wrote:

> How do you use find statement to find variant? My code:
>
> Activecell.Value = varval
> On Error Resume Next
> With Sheets("Table").Columns("A:A")
> Set c = .Find(What:=varval, After:=ActiveCell, LookIn:=xlValues, _
> LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
> MatchCase:=False)
> On Error GoTo 0
> If Not c Is Nothing Then
>
> Question? Dose varval need to be in quotes? parenthethes? varval is a string.