Find first blank in all sheets

[Robert E Lee]

Hi All

I am attempting to loop through each sheet in a workbook, find the first blank after "A2" and therefrom create a range.
The problem seems to be that whatever sheet the macro is assessing it always finds the value for the first blank on Sheet1

For Each rs In Wb.Sheets
            
                                If rs.Name <> "sheet1" Then
                             
                                i = Cells.Find(what:="", After:=ActiveCell, searchorder:=xlByColumns, SearchDirection:=xlNext, _
                                MatchCase:=False, SearchFormat:=False).Row

I suspect that i need to change "After:=ActiveCell" to "After:rs.Range("A2")" ( which does not compile.).

Any guidance much appreciated

Rob

 

[FormR]

I suspect that i need to change "After:=ActiveCell" to "After:rs.Range("A2")" ( which does not compile.).

Hi, more likely that you need to qualify cells in this part..

i = rs.Cells.Find(what:="", After....etc

 

[Robert E Lee]

Many thanks for that solution

Regards

Rob