ok cancel dialog box

[shishi]

Hi all,

I am trying to do a simple dialog box. I can't figure out how I can
do this. The user has to select appropriate cell ( by clicking into a
cell) in a work sheet to have the output of a macro go into that cell.
Now I wish to provide a dialog box that has ok and cancel. If the user
is ready for the output, he needs to click and select the appropriate
cell in the sheet and then click ok. If user wants to cancel, he can
click on cancel and the function will not run. I am trying to implement
this..Any ideas..thanks in advance...

shishi

 

[Leith Ross]

Hello Shishi,

You may have a problem doing this. Both the MsgBox and InputBox use
modal dialogs. Once displayed you can not select anything on the
Worksheet. When is the MsgBox called and by what?

Sincerely,
Leith Ross

 

[Guest]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address(False, False) = "A1" Then
If MsgBox("Ready?", vbOKCancel) = vbOK Then MyMacroRunsHere
End If

End Sub

 

[Tim Williams]

Sub Test()
Dim v As Object

On Error Resume Next
Set v = Application.InputBox(prompt:="Select a cell for output, or
cancel", Type:=8)
On Error GoTo 0

If Not v Is Nothing Then
MsgBox "User selected range " & v.Address
Else
MsgBox "User cancelled"
End If

End Sub

 

[shishi]

Here is the code snippet...

Sub DesignateStartingCell()
MsgBox "Select the starting cell for the first column"
Call GenerateNames("START_SPEC", "SPECS")

End Sub

The GenerateNames("START_SPEC", "SPECS"), is going to the generate a
NAMED RANGE at the selected cell. The name is START_SPEC and the sheet
name is SPECS.

May be I should use a msg like "Have you selected appropriate starting
Cell?" If the user clicks on YES, the code runs and if the user clicks
on NO the exit without calling GenerateNames("START_SPEC", "SPECS")...