You can cheat and get both items with a single inputbox call:


Sub single_input()
Dim x As String
x = Application.InputBox("enter account, value", Type:=2)
s = Split(x, ",")
Range("H12").Value = s(0)
Range("K12").Value = s(1)
MsgBox (x)
End Sub

basically we input a string and then separate it into substrings using the
comma as the separator. Then we process the substrings individually.

--
Gary''s Student - gsnu200714


"Les Stout" wrote:

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