Hi Hanasamo,

Try something like:


Public Sub Tester03()

Dim arr As Variant

arr = Array("Header1", "Header2", "Header3", "Header4", "Header5", _
"Header6", "Header7", "Header8", "Header9", "Header10")


Range("A1").Resize(UBound(arr) + 1, 10) = arr

End Sub


---
Regards,
Norman



"hanasamo" wrote in
message ...

There are as much as 10 columns containing the data, I added header that
is in Chinese for every column in the row 1, but part of those who need
to see the worksheet can't understand Chinese, so I want to create a
button like"english/chinese", whenever a user clicks the button the
language of the header can be switched to English.


--
hanasamo
------------------------------------------------------------------------
hanasamo's Profile:
http://www.excelforum.com/member.php...o&userid=25344
View this thread: http://www.excelforum.com/showthread...hreadid=392813