Twice run of macro
 

My macro run twice if I run it from excel button !?. It runs normally i
I run it from VBA editor. Why ?
Macro is stored in add in.

My macro:
Sub My_Hyperlink1(Directory As String)
Dim My_Adress As String
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = Directory
.Show
My_Adress = .SelectedItems(1)
End With
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:=My_Adress
End Sub

Sub test_My_Hyperlink1()
My_Hyperlink1 "C:\"
End Sub

Thanks in advic

--
Joze
-----------------------------------------------------------------------
Jozef's Profile: http://www.excelforum.com/member.php...fo&userid=1602
View this thread: http://www.excelforum.com/showthread.php?threadid=27490

Twice run of macro
 

hi,
your macro looks ok. what is the code behind the button?

-----Original Message-----

My macro run twice if I run it from excel button !?. It
runs normally if
I run it from VBA editor. Why ?
Macro is stored in add in.

My macro:
Sub My_Hyperlink1(Directory As String)
Dim My_Adress As String
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = Directory
.Show
My_Adress = .SelectedItems(1)
End With
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell,
Address:=My_Adress
End Sub

Sub test_My_Hyperlink1()
My_Hyperlink1 "C:\"
End Sub

Thanks in advice


--
Jozef
----------------------------------------------------------
--------------
Jozef's Profile: http://www.excelforum.com/member.php?
action=getinfo&userid=16025
View this thread:
http://www.excelforum.com/showthread...hreadid=274905

.