I would try
Sub ChangeHyperDrive()
Dim H As Hyperlink
For Each H In ActiveSheet.HyperLinks
Debug.Print H.Address
If Left(H.Address,2)="D:" Then
H.Address = "E:" & Mid(H.Address,2)
End If
Next
End Sub
If it doesn't work, look in the VB editor immediate window to see what
the addresses are actually like and, if you can't see how to change the
macro to cope, post back here a sample address.
Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup