Hi,
My problem is when I add
With DataBk.VBProject.VBComponents(Sht.CodeName).CodeMo dule
.AddFromFile "c:\work\code.txt"
End With
if the text is
Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
call querry
End Sub
then it works. However, if I add private in front, like
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
call querry
End Sub
Then Excel crashes.
Anyone has an idea?
Jingze
*** Sent via Developersdex
http://www.developersdex.com ***