Sub Macro1()
For n = 1 To ActiveSheet.Hyperlinks.Count
x = ActiveSheet.Hyperlinks(n).Address
ActiveSheet.Hyperlinks(n).Address = "D" & Mid(x, 2)
Next n
For n = 1 To ActiveSheet.Comments.Count
x = ActiveSheet.Comments(n).Parent
ActiveSheet.Comments(n).Parent = "D" & Mid(x, 2)
Next n
End Sub