[color=darkblue]Sub[/color] showkkk()
kkk.Show
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[color=darkblue]Sub[/color] showkkk()
Run "'vidu1.xls'!showkkk"
[color=darkblue]End[/color] Sub
Sub CallForm()
Workbooks.Open Filename:="H:\My Documents\Misc\Vidu1.xls"
Application.Run "'Vidu1.xls'!Macro1"
End Sub