setting range in another workbook in a two workbook routine

[dinotom]

The code snippet below is giving me an error 438

I am simply trying to determine if the worksheet name from the source workbook is in the header row of the master workbooks data sheet.

The code barfs on the bolded line, where is my error? (FYI it also gives an error if I use Range("TraderHeaders") (error 1004)

 For Each ws In wbDataSource.Worksheets
                With wbMaster
                [B]Set rngToFind = .Range("TraderHeaders").Find(what:=ws.Name, MatchCase:= True)[/B]
                End With
Next ws

 

[pbornemeier]

If you don't define all arguements of the .Find statement, I believe they default to the find that was previously used.

See if this works:

    Set rngToFind = .Range("TraderHeaders").Find(what:=ws.Name, After:=.Range("TraderHeaders").Cells(1), _
        LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=True, SearchFormat:=False)