Sub GetUp()
  Dim aCell As Cell, aRng As Range
  Set aRng = Selection.Range
  Selection.Range.Cells(1).Select
  Selection.MoveUp
  If Selection.Range.Cells.Count = 1 Then
    Debug.Print Selection.Range.Cells(1).Range.Text
  Else
    Debug.Print "No cells immediately above selection"
  End If
  aRng.Select  'restore selection
End Sub