No problem!

After the 'MsgBox mc' line, insert the line below:

Worksheets("Main Totals").Range("P18")=mc

Regards,
Per


Thank you both (Per & Ron) *for two great solutions both work well.

I am going to use the date one – just in case others get their hands
on it and mess about with it in work (technophobes) and keep the other
for another workbook I have to set up.

I would really love it – if after the message comes up if the answer
could also populate a cell in another sheet.

Say cell P18 *in worksheet “Main Totals” * in the same workbook as the
other data.

Many thanks for your input to my learning

Johnnyboy- Skjul tekst i anførselstegn -

- Vis tekst i anførselstegn -