VB Marco Reverse Variant and paste into other sheet

C

Chuo Chung Seng

Hi All,

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


End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VB Marco Reverse Variant and paste into other sheet 2
Search an array of sheets for an array of numbers & return count of numbers 11
Tried and true copy code lines fail me here 7
Array to Multiple Arrays 3
Array code only works on selected sheet 14
Unhide sheet, copy and rename new sheets from list, rehide sheet 8
Subscript out of range error 4
Search other sheets for numbers & color them 10

Top