VB Marco Reverse Variant and paste into other sheet
 

I have some error occur during reversing an Variant.
The Avalue(i) = StrReverse(Avalue(i)) having error mention that
"Subscript out of range"
Anyone can advise an solution to me pls.....

Dim Avalue() As Variant

Sheets("Sheet1").Select
Avalue = Range("B3:B500").Value


For i = LBound(Avalue) To UBound(Avalue)
Avalue(i) = StrReverse(Avalue(i))
Next i

Sheets("Sheet2").Select
Range("B3:B500") = Avalue

Regards
Chuo

VB Marco Reverse Variant and paste into other sheet
 

An array picked up from a range has the same number of rows and columns as the range.
So your Avalue() array is actually an array of 498 rows and 1 column.
You have to specify both dimensions to access it...

Avalue(i, 1) = StrReverse(Avalue(i, 1))
'---
Jim Cone
Portland, Oregon USA .
http://www.mediafire.com/PrimitiveSoftware .
(XL Companion add-in: compares, matches, counts, lists, finds, deletes...)



"Chuo Chung Seng"
wrote in message
...
I have some error occur during reversing an Variant.
The Avalue(i) = StrReverse(Avalue(i)) having error mention that
"Subscript out of range"
Anyone can advise an solution to me pls.....

Dim Avalue() As Variant

Sheets("Sheet1").Select
Avalue = Range("B3:B500").Value


For i = LBound(Avalue) To UBound(Avalue)
Avalue(i) = StrReverse(Avalue(i))
Next i

Sheets("Sheet2").Select
Range("B3:B500") = Avalue

Regards
Chuo

VB Marco Reverse Variant and paste into other sheet
 

Yes, it run without error bro.
Thanks a lot Jim. I'm newbie on vb.

Regards
Chuo