Cannot Run Inputbox type 8 more than once in a procedure

Hi all,

I cannot run the Type 8 inputbox (for user specified ranges) more than once in my procedure.

In the code below, the first inputbox for rngSource works fine, but clicking the ok button after selecting a range for the second inputbox (rngDest) pops up the following error:

Quote

Run-time error '424':

Object required

I initially thought that the Default option was to blame. So I created a dummy procedure with the command for the first inputbox repeated twice, and got the same error.

Any help would be much appreciated.

Thanks

m

Sub InputBox_For_Ranges()
    Dim rngSource As Range, rngDest As Range, rngStartingPoint As Range
    
    Set rngStartingPoint = ActiveCell


    Set rngSource = Application.InputBox("Select Source Cell", _
          Type:=8, Default:=rngStartingPoint.Address)
    
    Set rngDest = Application.InputBox _
          (prompt:="Select Destination (SINGLE CELL ONLY)", _
          Type:=8, Default:=rngSource.Offset(0, 1).Address)
End Sub

Re: Cannot Run Inputbox type 8 more than once in a procedure

Hmm! Could this be a Win XP/Excel 2k conflict?

m

Re: Cannot Run Inputbox type 8 more than once in a procedure

But that is not the case. I've not gotten round to the bulletproofing stage yet. This thing won't work for me even when I'm not trying to crash it.

m

Re: Cannot Run Inputbox type 8 more than once in a procedure

Sorry for the false alarm! I just restarted Excel, and the code works fine. I tried umpteen ways of running the code before my first post - except exiting Excel and relaunching.

A Thousand Apologies!

m