Dim X As Long, B() As Byte

Uh, you can omit the declaration for the X variable (it was left over from a
different attempt).

Rick Rothstein (MVP - Excel)