HickoryShade
New Member
- Joined
- Dec 14, 2005
- Messages
- 5
I have an excel workbook that I have saved as a web page. The following code is embedded in each worksheet:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address = "$B$12" Then
Shell ("ping.exe -t " & ActiveCell.Value), vbNormalFocus
End If
I lose the functionality of the above code when I save as a web page. If I leave it as an excel workbook it works. Question: Can I save the excel workbook with the above mentioned code as a web page and still have the same functionality?
TIA...
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address = "$B$12" Then
Shell ("ping.exe -t " & ActiveCell.Value), vbNormalFocus
End If
I lose the functionality of the above code when I save as a web page. If I leave it as an excel workbook it works. Question: Can I save the excel workbook with the above mentioned code as a web page and still have the same functionality?
TIA...