How to capture an object name

I just tried that. I assume Selection.Name is used as "PicName = Selection.Name" in VB code. I get run time error 438, Object doesn't support this property or method. What am I missing? You can tell I'm a nivice.

Hello Reebot,

Here is a function to return the last picture on the active sheet.

Function GetLastPicName() As String

  Dim N As Long
  Dim Pic As Object
  Dim PicName As String
    
    For Each Pic In ActiveSheet.Shapes
      If Pic.Type = msoPicture Then
        PicName = Pic.Name
      End If
    Next Pic
  
    GetLastPicName = PicName
    
End Function

Siincerely,
Leith Ross