No, it stands in the same line[vba]Private Sub ArrayFill()
Dim r As Range
...
...[/vba]
Thanks a lot