Hi All,
I am using the following code:
Sub ReturnInvoice()
Do
Dim myWord$
myWord = InputBox("Insert the Voucher Number", "Voucher Search")
If myWord = "" Then Exit Sub
Application.ScreenUpdating = False
Dim xRow&, NextRow&, LastRow&
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
NextRow =...