Display calculations in a message box

I have a workbook in which one of the sheets is doing a number of calculations based upon certain conditions. The calculations are in column D of a sheet named "calculations" that I want to keep hidden from users. I want to give users the ability to see the results of column D but I want to show the results in a message box and only for the cells that have values

For example on one day there may be data in Cell D1, D2, D3 and D4. On the next day there may be data in Cells D1 through D15...and so on (note: there are no blank cells between cells).

I want a macro that would display something such as:

The results are as follows:
Value of D1
Value of D2
Value of D3
Value of D4

If all cells are blank, then return message of: "no results to display".

Thanks for any help.

Hello maacmaac,

This macro will return the results of the cells in column "D" of "Sheet1" in dialog box. You can change the code to pull data from the hidden sheet by changing the worksheet name marked in red below.

Please Login or Register  to view this content.

Sincerely,
Leith Ross

Ah, I see Leith Ross has beaten me to the punch, but here's my solution nonetheless:

Please Login or Register  to view this content.

HTH

Robert