daniroy
12/15/2006 5:09:00 PM
Hello there,
I need to aggregate two text as "EUR" and "GBP" to create a third text
as "EURGBP".
Here is the code I am using now. CurrencyCode = "Currency1Currency2" in
Locals window, in place of "EURGBP". Any ideas? Kind regards to
everybody, Daniel
Sub Convert_Figures()
Dim Currency1 As Variant
Dim Currency2 As Variant
Dim CurrencyCode As Variant
For i = 2 To Last_Row(Sheets("Stocks").Columns("A:A")) + 1
Currency1 = Sheets("Characteristics").Range("G" & i)
Currency2 = Sheets("Characteristics").Range("H" & i)
CurrencyCode = "Currency1" & "Currency2"
Next i
End Sub