Macro guardar imágenes desde excel

Tengo la siguiente macro que guarda imágenes de excel a una carpeta.

Lo que necesito hacer es que cada imagen se guarde con el nombre de la siguiente celda.

Por ejemplo, las imágenes las tengo desde la celda A2 y el nombre de cada imagen esta en B2 respectivamente, la idea es que la imagen se guarde con el nombre de la celda B2.

Por favor su ayuda!

Sub ExportarImagen()

Dim img As Shape

Application.ScreenUpdating = False
For Each img In ActiveSheet.Shapes
'añadimos un gráfico
Charts.Add
'lo situamos como objeto en la Hoja 3
ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"
Set chrt = ActiveSheet.ChartObjects(1)

nombreimg = img.Name
'adaptamos tamaño de imagen y gráfico
With img
chrt.Width = .Width
chrt.Height = .Height
'copiamos la imagen
. Copy
End With
'pegamos dentro del gráfico la imegen
ActiveChart. Paste
'exportamos el gráfico con el nombre del objeto (imagen)
chrt.Chart.Export Filename:="C:\" & nombreimg & ".gif"
chrt.Delete
Next img

Application.ScreenUpdating = True

End Sub