Sub RemoveFooterRows(theFile)
Dim found As Range
Set found = Workbooks(theFile).Worksheets(1).Columns(1).Find _
("Summary", Range("A1"), xlValues, xlPart, xlByRows, xlNext, False, , False)
MsgBox ("val is " & found.Row)
End Sub
You need the "Set" keyword to assign the value.
Also not sure what you want " =isItRow =" to do but you should do it in two statements instead of trying to stack them like that.
Also aggregateRow isn't used and isn't assigned a type.
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…