find selects almost entire worksheet instead of just column D

[mysticmario]

as per title.
I have similar code in different part of my workbook and it works fine, but as soon as i started playign with offsets I have this problem.

    Sub TEST()
    ActiveSheet.Columns("D:D").Select
Set cell = Selection.Find(what:="legs", After:=ActiveCell, LookIn:=xlFormulas, _
        lookat:=xlPart, SearchOrder:=xlByRows, searchdirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

If Not IsEmpty(cell.Offset(, 2)) And cell.Offset(, 2) <> 0 Then
    MsgBox "no legs"
Else
    MsgBox "yes legs"
End If

    End Sub

I assume i need some more stuff to make it work.

 

[Fluff]

Is this what you want

If cell.Offset(, 2) <> "" And cell.Offset(, 2) <> 0 Then

 

[mysticmario]

Is this what you want

If cell.Offset(, 2) <> "" And cell.Offset(, 2) <> 0 Then

not quite, that part worked fine it's just that ActiveSheet.Columns("D:D").Select actually selects:

 

[Fluff]

That's because you have used merged cells which are an abomination.
Use

    Sub TEST()
Set cell = Columns("D").Find(what:="legs", After:=ActiveCell, LookIn:=xlFormulas, _
        lookat:=xlPart, SearchOrder:=xlByRows, searchdirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

 

[mysticmario]

That's because you have used merged cells which are an abomination.
Use

    Sub TEST()
Set cell = Columns("D").Find(what:="legs", After:=ActiveCell, LookIn:=xlFormulas, _
        lookat:=xlPart, SearchOrder:=xlByRows, searchdirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

Haha your probably right, I'll check this out tommorow. Gotta go home sometimes.
But I have a feeling it's going to work.

 

[Fluff]

Ok

 

[mysticmario]

I jumped the gun.
I get a type mismatch error

 

[Michael M]

Maybe this then

Set cell = Columns("D").Find(what:="legs", After:=Cells(1, 4), LookIn:=xlFormulas, _
        lookat:=xlPart, SearchOrder:=xlByRows, searchdirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

 

[mysticmario]

Maybe this then

Set cell = Columns("D").Find(what:="legs", After:=Cells(1, 4), LookIn:=xlFormulas, _
        lookat:=xlPart, SearchOrder:=xlByRows, searchdirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

Object Variable or With Block Variable Not Set

 

[Michael M]

In that case I think you need to post ALL the code you are using.
And please not in picture form.