Dim x, y, z As Integer
If coll2(z) = "y" Then
Trial...
Dim x As Integer, y As Integer, z As Integer
HTH. Dave