Sub kisayololustur()
Dim kisayol As String
Dim hucre As Range
For Each hucre In Range("A2:A9").Cells
kisayol = Application.ActiveWorkbook.Path + "\deneme\" + hucre.Value + ".lnk"
With CreateObject("WScript.Shell").CreateShortcut(kisayol)
.TargetPath = hucre.Offset(0, 1).Value
.Description = hucre.Value + " git"
.Save
End With
Next
End Sub