VBA For Each Loop just prompting one input

[mattyg1406]

I am sorry my bad,

Change this section

For Each r In Range("G" & lRowtoCopy).Resize(lHowManyCopies)
    r.Value = InputBox("Enter value for " & r.Address, "Split Voucher Payments")
Next r

with this:

For Each r In Range("G" & lRowtoCopy).Resize(lHowManyCopies)
    r.Value = Application.InputBox("Enter value for " & r.Address, "Split Voucher Payments", , , , , , 7)
Next r

Thanks

I'm afraid that didn't make any difference