Hi Les,

Try something like:

'=============
Public Sub Tester005()
Dim x As Range
Dim myVal As Variant

For Each x In Range("H12:H18")
x.Value = InputBox( _
"Please enter the Account number..." _
& vbCrLf & vbCrLf & _
"To end input, enter nothing", _
"ACCOUNT NUMBER")
If x.Value = "" Then
Exit Sub
Else

myVal = InputBox(Prompt:="Insert A/C value", _
Title:="A/C Value")

If IsNumeric(myVal) Then
x.Offset(0, 2).Value = CDbl(myVal)
End If
End If

Next x
End Sub
'<<=============


---
Regards,
Norman




"Les Stout" wrote in message
...
Hi all, i have the following code that is working fine, i just need to
add another range and input within the loop.
After the "Account Number" i to put in the value for the account in the
Range("K12:K18"), can i include it in this loop or must i do a different
one ??


For Each x In Range("H12:H18")
x.Value = InputBox("Please enter the Account number..." & vbCrLf &
vbCrLf & _
"To end input, enter nothing", "ACCOUNT NUMBER")
If x.Value = "" Then Exit Sub
Next


Les Stout

*** Sent via Developersdex http://www.developersdex.com ***