Hi

When you merge cells MS Excel warns you and asks for your permissoin to
continue. I like to have a similar facility when running a macro. I would
like the box to ask me for a yes/no or a value?

Could someone help me with VBA codes for doing that please?

Thanks
Varne M

Hi M,

Try something like:

'=============
Public Sub Tester()
Dim res As VbMsgBoxResult

res = MsgBox(Prompt:="Do you wish to continue", _
Buttons:=vbYesNo, _
Title:="Continue?")

If res = vbNo Then
Exit Sub
End If

'your code

End Sub
'<<=============


---
Regards,
Norman


"Varne" wrote in message
...
Hi

When you merge cells MS Excel warns you and asks for your permissoin to
continue. I like to have a similar facility when running a macro. I would
like the box to ask me for a yes/no or a value?

Could someone help me with VBA codes for doing that please?

Thanks
Varne M

Hi Norman

Thanks.

I am a little slow to VB so please explain somthing.

My codes are

Sub Deleter

Range("a1").select
Selection.ClearContents

End Sub

Now Norman How I annex my codes with yours? If I start at where you mention
my computer does not pick up the Macro?

Please reply.

Regards

M Varnendra


"Norman Jones" wrote:


Hi M,

Try something like:

'=============
Public Sub Tester()
Dim res As VbMsgBoxResult

res = MsgBox(Prompt:="Do you wish to continue", _
Buttons:=vbYesNo, _
Title:="Continue?")

If res = vbNo Then
Exit Sub
End If

'your code

End Sub
'<<=============


---
Regards,
Norman


"Varne" wrote in message
...
Hi

When you merge cells MS Excel warns you and asks for your permissoin to
continue. I like to have a similar facility when running a macro. I would
like the box to ask me for a yes/no or a value?

Could someone help me with VBA codes for doing that please?

Thanks
Varne M

Hi M,

Try:

'=============
Public Sub Tester()
Dim res As VbMsgBoxResult

res = MsgBox(Prompt:="Do you wish to continue", _
Buttons:=vbYesNo, _
Title:="Continue")

If res = vbNo Then
Exit Sub
End If
ActiveSheet.Range("A1").ClearContents

End Sub
'<<=============



---
Regards,
Norman


"Varne" wrote in message
...
Hi Norman

Thanks.

I am a little slow to VB so please explain somthing.

My codes are

Sub Deleter

Range("a1").select
Selection.ClearContents

End Sub

Now Norman How I annex my codes with yours? If I start at where you
mention
my computer does not pick up the Macro?

Please reply.

Regards

M Varnendra

Hi Norman

Regardless of yes or no "a1" is deleted. Please check. Thanks.

Varne M

"Norman Jones" wrote:

Hi M,

Try:

'=============
Public Sub Tester()
Dim res As VbMsgBoxResult

res = MsgBox(Prompt:="Do you wish to continue", _
Buttons:=vbYesNo, _
Title:="Continue")

If res = vbNo Then
Exit Sub
End If
ActiveSheet.Range("A1").ClearContents

End Sub
'<<=============



---
Regards,
Norman


"Varne" wrote in message
...
Hi Norman

Thanks.

I am a little slow to VB so please explain somthing.

My codes are

Sub Deleter

Range("a1").select
Selection.ClearContents

End Sub

Now Norman How I annex my codes with yours? If I start at where you
mention
my computer does not pick up the Macro?

Please reply.

Regards

M Varnendra

Hi N,

Regardless of yes or no "a1" is deleted. Please check. Thanks.

That is not my experience.

If the user selects the 'No' option, the Exit Sub instruction
prevents the processing of subsequent instructions.


---
Regards,
Norman


"Varne" wrote in message
...
Hi Norman

Regardless of yes or no "a1" is deleted. Please check. Thanks.

Varne M

"Norman Jones" wrote:

Hi M,

Try:

'=============
Public Sub Tester()
Dim res As VbMsgBoxResult

res = MsgBox(Prompt:="Do you wish to continue", _
Buttons:=vbYesNo, _
Title:="Continue")

If res = vbNo Then
Exit Sub
End If
ActiveSheet.Range("A1").ClearContents

End Sub
'<<=============



---
Regards,
Norman

Sorry Norman

Your codes work. Thanks.

Best Regards

Varne M

"Norman Jones" wrote:

Hi N,

Regardless of yes or no "a1" is deleted. Please check. Thanks.

That is not my experience.

If the user selects the 'No' option, the Exit Sub instruction
prevents the processing of subsequent instructions.


---
Regards,
Norman


"Varne" wrote in message
...
Hi Norman

Regardless of yes or no "a1" is deleted. Please check. Thanks.

Varne M

"Norman Jones" wrote:

Hi M,

Try:

'=============
Public Sub Tester()
Dim res As VbMsgBoxResult

res = MsgBox(Prompt:="Do you wish to continue", _
Buttons:=vbYesNo, _
Title:="Continue")

If res = vbNo Then
Exit Sub
End If
ActiveSheet.Range("A1").ClearContents

End Sub
'<<=============



---
Regards,
Norman