hello,

I have a problem with Ubound and Lbound

I have this function

Function Client(code as integer) as variant

Dim r as integer, code as integer
Dim var(1 To 1000, 1 To 6) As Variant
Dim NextCell as range
r = 1

While code 256

var(r, 1) = "salut"
var(r, 2) = "nom"
var(r, 3) = "prenom"
var(r, 4) = currentdate
var(r, 5) = "status"
var(r, 6) = "prof"
var(r, 7) = "OFF"
var(r, 8) = "COMMENTS"


r = r + 1


Wend

' In order to have always last first empty cell

Set NextCell = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)


NextCell.Resize(UBound(var, 1) - LBound(var, 1), UBound(var, 2) -
LBound(var, 2)).Value = var
' I have a problem here
End function


Could someone help me on that?

ina