How to Quickly Extract Pictures From An Excel File

VB Macro: To save the images with the names. Hope this will help as much as it did to me

Sub save_pic()
'
' save_pic Macro
'
' Keyboard Shortcut: Ctrl+p
'
' Before you run the macro, select the range of data containing the filenames and pictures
' First column filenames, second column pictures
'
' Dimension all variables.
   Dim DestFile As String
   Dim Desthtm as string
   Dim Destcell as string  
   Dim RowCount As Long
   Dim Columnf As Long
'
' Turn error checking on.
  On Error GoTo 0
  Columnf = 1
'
' Loop for each row in selection.
   For RowCount = 1 To Selection.Rows.Count
'
' Assign Filename to variable
    Desthtm = "S:\Arlene\ETL vendorpart\EMP\" & Selection.Cells(RowCount,Columnf) & ".htm"
    DestFile = Selection.Cells(RowCount,Columnf) & ".jpg"
'
' Pictures located in second column: B

    Destcell = "B" & RowCount
'
' Save each picture into individual file with the specified name
   With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
      Desthtm, "Complete list", Destcell, _
      xlHtmlStatic, DestFile, "")
      .Publish (True)
      .AutoRepublish = False
   End With 
'
   If RowCount = Selection.Rows.Count Then
'
      MsgBox "End of Process- Saving Pictures"
      exit for
   End If
'
' Start next iteration of RowCount loop.
    Next RowCount
'
End Sub