VBA code for Hyperlink fixing

Dear All,

I am using following code for fixing Hyperlinks

Sub Fix192Hyperlinks()
Dim OldStr As String, NewStr As String
OldStr = "C:\Documents and setting\Production\desktop"
NewStr = "D:\Narendra\Damage Details\West Deatils"
Dim hyp As Hyperlink
For Each hyp In ActiveSheet.Hyperlinks
hyp.Address = Replace(hyp.Address, OldStr, NewStr)
Next hyp
End Sub

However, while running the code - It runs & showing no error. But the links are not updating to newstr.

Pl help me on this.

Thanks & Regards
Narendra

Perhaps Option Compare Text at the beginning of the module might help.

Or:

Please Login or Register  to view this content.

If this doesn't help, post a sample workbook.

PS: you should enclose your code in

HTML Code: 

Regards

Dear TMShucks

Thanks for showing intrest.

Please find attached herewith the sample workbook.

Thanks & Regards
Narendra