OK!
did some research and vóila!
this UDF does not need sendkeys!
didadaa!
function InstallFont($source)
dim $Window,$Shell
$Shell = CreateObject("Shell.Application")
$Shell.NameSpace(20).CopyHere($source,4)
$Window = createobject("internetexplorer.application")
$Window.navigate2(20)
$Window.visible = not 0
$Window.quit
endfunction
_________________________
!download
KiXnet
