I can not paste the code in message

Originally Posted by nilem

It's not working
I'll try again:

With [a3:j3].Resize(k)
    .Value = y
    .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, _
          Key3:=.Cells(1, 2), Order2:=xlAscending, Header:=xlNo, MatchCase:=False
End With

looks to me like its there?

looks to me like it worked?

It's fantastic, I copy the code from the VBE editor to the message, and add code tags, click "Post Quick Reply" (I've done it hundreds of times!). But now my message just disappears.

Edited:
I'll try to add some other code

Sub ertert()
Dim x, i&, j&, k&
x = Range("A1").CurrentRegion.Value
For i = 1 To UBound(x)
    For j = 1 To UBound(x, 2)
        If x(i, j) = 1 Then
            k = k + 1
        End If
    Next j
Next i
End Sub