Here's a piece of code that I just wrote quickly.
It will prompt you for a conversion number and then multiply all values in the active sheet by that amount . This would allow you to convert from any type of monitary system to another.
Public Sub ConvertAmonts()
ConvNum = InputBox("Type in Conversion Number", "Conversion Number")
For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
c.Value = c.Value * ConvNum
Next
End Sub
_________________
<font size=-1>NOTE:</font.<font size=-1> (Testing performed on Win2K utilizing Office 2000. Solutions may need tweaking for other versions.)</font><font size=+1><font color="blue">Adieu,<font color="red">N<font color="blue">imrod</font
This message was edited by Nimrod on 2003-01-05 18:32