Compile Error: Named Argument Not Found???

[Anthony G.]

Jimiskey was kind enough to provide me with this code, but I get a compile error stating that the named argument is not found with the SearchFormat text under highlights.

Any suggestion?

Thanks,

Anthony

Ok, try this code:

Sub InsertRows()
'
'Start at cell A1
Range("A1").Select
'Loop through finding the word Total and insert blank line afterwards
Do
Cells.Find(What:="Total", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
'If you find Grand Total, stop you are done
If Left(ActiveCell.Value, 11) = "Grand Total" Then
Exit Sub
End If
Loop

End Sub

 

[kingr]

Andrew, many thanks. You saved my life haha

In the script I was working on, it didn't like "SearchFormat:=False" and "ReplaceFormat:=False". It gave me an error on both lines, but I had more confidence deleting them after I read your reply on this thread.

Many thanks.