Finding text in a different workbook

[gbell3587]

Hi

I have 2 workbooks - one named search and the other named data. On my search workbook, cell A1 contains the value "car". I need some vba code that would search the workbook 'data' for the text "car" or value A1 & if its found, display a msgbox.

Thanks
Graham

 

[wigi]

Do you need to search all tabs in the workbook 'data'?

 

[gbell3587]

I only really need to search column a......its a 1 sheet workbook.

 

[wigi]

Try:

Sub findaword()

    MsgBox CountIf(Workbooks("data.xls").Sheets(1).Columns(1), ThisWorkbook.Worksheets(1).Range("A1")) > 0

End Sub

The macro comes in the workbook 'search'.

Wigi

 

[gbell3587]

im getting a sub or function not defined error - points to the countif part? any ideas?

 

[wigi]

Sorry, it should read:

Worksheetfunction.Countif instead of Countif.

 

[gbell3587]

awesome, working now!

thanks for your help