Object Required...

Private Sub CommandButton1_Click()

Dim aRank As Long
Set aRank = Mid(Cells(6, 2).Value, 1, 1)

MsgBox aRank

End Sub

It says object required.. What am I missing?