Hello there,

I have a list of shares with the market prices in their respective
currencies. For example:
10 Microsoft - 10 USD
10 Nestle - 10 CHF
10 Siemens - 10 EUR

I now want to compute the total value of these shares in their respective
currencies, resulting in
10 Microsoft = 100 USD
10 Nestle = 100 CHF
10 Siemens = 100 EUR

How do I "remember" the market prices in the proper currency? Right now I
only "load" the actual number without refering to the currency:
sngMarketPrice_CURRENCY(lngRow) =
Worksheets(strWORKSHEET_NAME).Cells(lngRow, lngCol)

How can I keep the currency information when loading my array, and then
later on write the info "number + currency" into another worksheet.

Thank you for your help.