You could use the shape's name to distinguish Comment from other
shapes.
The following example selects the first shape in F2 whose name does
not start with "Comment"...

Option Explicit
Sub select_shape()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If Shp.TopLeftCell = Range("F2") _
And Left(Shp.Name, 7) < "Comment" Then
Shp.Select
End If
Next
End Sub

Ken Johnson