If the intent is to fill in a number where missing then

for each c in range("c2:c22")
if len(application.trim(c))<1 then
c.value= 1099075
end if
next c

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Helmut" wrote in message
...
I need code which will do the following:

When I input the Kupa number i.e. 1099075 it needs to verify that this
code
exists on table_3 when it does not exist i.e. vlookup=FALSE, then I need
to
loop through beginning and ask person to input correct Kupa number. When
no
longer FALSE, then put number: Range("F2:G2").Select //
Range("F2:G2").Value
= Account

' Input Kupa Account Number

Dim Message, Title, Default, Account

Message = "ìäëðéñ îñ' ä÷åôä ùì äòåáã" ' Set prompt.
Title = "Input Box" ' Set title.
Default = "109xxxx" ' Set default.

' Display message, title, and default value.
Account = InputBox(Message, Title, Default)

------------------------
If WorksheetFunction.VLookup(Account, Table_3, 2, False) = False Then

loop-code until number in table
------------------------
Range("F2:G2").Select
Range("F2:G2").Value = Account

Thanks