Can the date in the ActiveCell be shown in a MsgBox, allowing the user to
check whether to continue or Cancel the macro running. All data on and below
the ActiveCell is cut and pasted into second sheet.

--
Thank you

Aussie Bob C
Little cost to carry knowledge with you.
Win XP P3 Office 2007 on Mini Mac using VMware.

Hi,

try this

' Lots of code
ttl = "Todays Date"
response = MsgBox(Format(ActiveCell.Value, "DD/mm/yyyy") _
& " Continue Yes/No", vbYesNo, ttl)
If response = vbNo Then Exit Sub

'More code
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"Aussie Bob C" wrote:

Can the date in the ActiveCell be shown in a MsgBox, allowing the user to
check whether to continue or Cancel the macro running. All data on and below
the ActiveCell is cut and pasted into second sheet.

--
Thank you

Aussie Bob C
Little cost to carry knowledge with you.
Win XP P3 Office 2007 on Mini Mac using VMware.

dim resp as long

resp = msgbox(Prompt:="Value is: " & format(activecell.value, "mmm dd, yyyy") _
& vblf & "Continue?", buttons:=vbyesno)

if resp = vbno then
exit sub '???
end if

'do the rest.

=====
This doesn't do any checking that the activecell actually contains a date.

Aussie Bob C wrote:

Can the date in the ActiveCell be shown in a MsgBox, allowing the user to
check whether to continue or Cancel the macro running. All data on and below
the ActiveCell is cut and pasted into second sheet.

--
Thank you

Aussie Bob C
Little cost to carry knowledge with you.
Win XP P3 Office 2007 on Mini Mac using VMware.

--

Dave Peterson

Try something like

MsgBox "The date in the active cell is " & _
Format(ActiveCell.Value, "dd-mmm-yyyy"), vbOKOnly

Cordially,
Chip Pearson
Microsoft Most Valuable Professional,
Excel, 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com



On Mon, 15 Mar 2010 05:38:01 -0700, Aussie Bob C
wrote:

Can the date in the ActiveCell be shown in a MsgBox, allowing the user to
check whether to continue or Cancel the macro running. All data on and below
the ActiveCell is cut and pasted into second sheet.