Find based on data in a cell in a different workbook

[jdawg44]

Hello,

I am trying to use the following code to find a cell in Row 1 of Book1. The data I am searching for is whatever is in cell K1 of the workbook with the variable name wb1.

Workbooks(wb1).Activate
    Range("K1").Activate
Workbooks("Book1.xls").Activate
    Rows("1:1").Select
    Selection.Find(What:=Workbooks(wb1).ActiveCell.Value, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

This code is giving me a "runtime error 438: Object doesn't support this property or method". Any help would be appreciated.

 

[jdawg44]

Nevermind. I found out my issue. I was only defining the workbook, not the worksheet. the following code worked for me:

    Selection.Find(What:=Workbooks(wb1).Worksheet(sh1).Range("K1"), After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate