Cell class

Option Explicit

Private pX As Integer
Private pY As Integer

Public Property Get x() As Integer
    x = pX
End Property

Public Property Get y() As Integer
    y = pY
End Property

Public Property Let x(newX As Integer)
    pX = newX
End Property

Public Property Let y(newY As Integer)
    pY = newY
End Property