Links on Spreadsheet are opening root folder when clicked!

[jmpatrick]

Not sure what I did this morning. I have a link on my spreadsheet that point to the same cell that I use to open a UserForm. When I click the link the UserForm opens correctly...but a Windows Explorer window also opens displaying the root folder the spreadsheet resides in. How do I stop this?

 

[jmpatrick]

This is happening to all users of the spreadsheet, not just me.

 

[jmpatrick]

Here's the code under the Sheet that has the links:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
     If Target.Range.Column = 3 Then Call OpenSearchEditFill
     If Target.Range.Column = 8 Then Call CopyShippingInstructions
     Select Case Target.Range.Address
             Case "$B$1"
             Call OpenSettings
             Case "$F$1"
             Call OpenSearchEdit
             Case "$K$1"
             Call ShowHousewrap
             Case "$R$3"
             Call SortByFloorOrderNumber
    End Select
    End Sub

When I click on any of these links, the macros run fine BUT a Windows Explorer window also opens to the root folder the spreadsheet is in. Also weird, if I click the link 10 times I get 10 explorer windows.

 

[jmpatrick]

When I create a new link on the same sheet (or another sheet in the same workbook, the same thing happens.

When I create a new workbook and create a link, it doesn't happen.

 

[jmpatrick]

I'm hesitant to blame the code because this wasn't happening yesterday, but here's the macro that runs when I click the link in B1 anyway:

Sub OpenSettings()

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.EnableEvents = False
   
    'ThisWorkbook.Save
   
    ThisWorkbook.VBProject.VBComponents("Settings").Activate
          
    With Settings
        .StartUpPosition = 0
        .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
        .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
        .MultiPage1.Value = 0
        .Show
    End With
         
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.EnableEvents = True
   
End Sub

Also, this happens when I open archived saved versions from weeks ago.

 

[jmpatrick]

This is definitely a Insert Hyperlink "Place in This Document" issue.

If I create a hyperlink to an external page it works fine.

 

[jmpatrick]

It's looking like a corrupt Workbook. I'm building a new one by exporting and importing and it's working so far.