Hi Trevor,

Try changing:

Debug.Print i & " " & aColumnWidth(i)


to

Debug.Print i & " " & aColumnWidth(i, 1)


---
Regards,
Norman


"Trevor Shuttleworth" wrote in message
...
I would like to save a range of values in an array for later processing.
The values are in cells A1 to N1. I'm using the following code to store
the data but, when I try to loop through the array, I immediately get a Run
time error '9': subscript out of range. The lower bound = 1 and the upper
bound = 14 which is what I would expect. What am I doing wrong ?

Option Explicit
Option Base 1

Sub FormatChangeSheet()
Dim iColumn As Long
Dim aColumnWidth As Variant
Dim i As Long

'If ActiveWorkbook.Name = ThisWorkbook.Name Then Exit Sub

With ThisWorkbook.Sheets("Settings")
iColumn = .Range("IV1").End(xlToLeft).Column - 1
aColumnWidth = _
Application.Transpose( _
.Range(.Cells(1, 1), .Cells(1, iColumn)))
End With

For i = LBound(aColumnWidth) To UBound(aColumnWidth)
Debug.Print i & " " & aColumnWidth(i)
Next

End Sub


--

Thanks

Trevor