Get rid of the selectionchange event

Private Sub btnStartQuicken_Click()
Dim readyCheck as Long
readyCheck = MsgBox("Ready to Quicken Values in clipboard?",
vbYesNoCancel)
If readyCheck = vbYes Then
On Error goto ErrHandler:
Range("B2").Select
Activesheet.Paste
End If
exit sub
ErrHandler:
Msgbox "Apparently the clipboard was empty"
End Sub

If B2 is the only choice, why horse around.

--
Regards,
Tom Ogilvy




"JCIrish" wrote in message
...
Thanks, Tom, for the help. What I did is seen below, for pasting Quicken
Data
into a specific cell. First, a command button which when clicked gives
instructons to select B2. Then a Selection change to force selection of
B2.
My problem is I don't know how to shut off the selection change handler
once
B2 has been selected and the Quicken data pasted there. I continues to
prompt
selection of B2 ever after!!
Any suggestions?

JCIrish

Private Sub btnStartQuicken_Click()

Dim readyCheck

MsgBox("Are you ready to enter Quicken Values?", vbYesNoCancel)

If readyCheck = vbYes Then

MsgBox "Select Cell B2"
End If
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = Range("B2").Address Then
MsgBox "Paste Quicken Values"

Else
MsgBox "You must select Cell B2"

End If
End Sub

"Tom Ogilvy" wrote:

Possibly something along the lines of

Dim rng as Range
Dim cnt as Long
do
cnt = cnt + 1
On error resume Next
set rng = Application.InputBox("Select cell with mouse",type:=8)
On error goto 0
do while not rng is nothing or cnt 4
if cnt 4 then exit sub


--
Regards,
Tom Ogilvy


"JCIrish" wrote in message
...
Within an event handler for a worksheet command button I display a
msgBox
telling user to select a specific cell. When user clicks OK on the
msgbox
how do I pause the macro until he selects the correct cell?