Question : "Windows failed to load b/c a required file is missing or corrupted" CI.dll

Hi

"Windows failed to start. A recent hardware or software change might be the cause. To fix problem:
1. Insert your windows installation disc and restart your computer.
2. Choose your language setting ...
3. Click " repair your computer."

I did the above mentioned and the proc. was unable to fix.  

Any ideas

dc

Answer : "Windows failed to load b/c a required file is missing or corrupted" CI.dll

It isn't fully clear how presented but try the following which replaces serverx with servery for all hyperlinks on teh activesheet.

Obviously replace bothe strings in teh sub for the actual values required

Chris
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
Sub redirectLink()
Dim rng As Range

    For Each rng In ActiveSheet.UsedRange.Cells
        If rng.Hyperlinks.Count = 1 Then
            With rng.Hyperlinks(1)
                .Address = Replace(.Address, "ServerX", "ServerY", 1, , vbTextCompare)
                .TextToDisplay = Replace(.TextToDisplay, "ServerX", "ServerY", 1, , vbTextCompare)
            End With
        End If
    Next
End Sub
Random Solutions  
 
programming4us programming4us