none
Want help for loop RRS feed

  • Question

  • i want to know how to create loop for Application.inputbox for range

    Sub copylineup()
    Dim copyrange As Range
    Dim destinationrange As Range
    Do
    Set copyrange = Application.InputBox(Prompt:="Enter a range to select", Type:=8)
    Set destinationrange = Application.InputBox(Prompt:="Enter a destination range", Type:=8)
    copyrange.Copy destinationrange

    Loop

    • Moved by Richard MuellerMVP Tuesday, February 13, 2018 11:40 AM Not a scripting question
    Monday, February 5, 2018 9:16 AM

All replies