VBA Array Syntax

[keentolearn]

Hi,

I am very much a starter in VBA.

I want the following Column Headers to be in the Range(A5:A12)

"Company name", "Address Line1", "Address Line2", "Address Line3", "Address Line4", "Telephone", "Fax", "E Mail"

How to use an array to do this in VBA.

Thank You.

[GTO]

Heyyyy... I'm awfully tired, but yer trying to trick us huh?

Okay, just teasing, but you said "A5:A12", which are rows in the first column...

Did you mean "E1:L1" ?

Or are you trying to place indicators/titles/headings in the same row (presumably for the cells beside them)?

Mark

[keentolearn]

Oops, I am Sorry. Its "E1:L1".

[GTO]

Sub TopRowHeader_ActiveSheet()
Dim _
aArray() As Variant, _
rngCell As Range
'// In this example, we chose to "build" the array simply by using the //
'// built-in 'Array' function. //
aArray = Array("Company name", "Address Line1", _
"Address Line2", "Address Line3", _
"Address Line4", "Telephone", "Fax", "E Mail")

'// Herein, we simply refer to the Range; thus the sheet that the range belongs //
'// to is presumed to be the active sheet.
For Each rngCell In Range("E1:L1")
rngCell.Value = aArray(rngCell.Column - 5)
Next

End Sub

[Norie]

Try this.

Range("E1:L1") = Array("Company name", "Address Line1", "Address Line2", "Address Line3", "Address Line4", "Telephone", "Fax", "E Mail")