macro per salvare foto da collegamento ipertestuale in desktop

Public Sub Tester()
Dim WB As Workbook
Dim sh As Worksheet
Dim Rng As Range
Dim rCell As Range

Set WB = Workbooks("LINK FOTO CLICCARE E SALVARE.xlsx")
Set sh = WB.Sheets("Foglio1")

Set Rng = sh.Range("B1") (è previsto il link da aprire)

For Each rCell In Rng.Cells
WB.FollowHyperlink Address:=rCell.Value, _
NewWindow:=True
ActiveWorkbook.SaveAs "C:\Users\Desktop\foto\1.jpg" (mi salva excel!!!!)


ci sto provando ma non riesce…..
una volta solo si è aperto paint salva con nome
aiuto