Try this John - assuming your cell is a range named "SS" -

Sub SSAN()
Dim Social As String
Social = Range("SS").Value
MsgBox Social
End Sub

Gary