Sub abrircualquierarchivo()
ActiveWorkbook.FollowHyperlink "C:\Documents and Settings\JOSE\N\1.txt"
'///////////////
ActiveWorkbook.FollowHyperlink "C:\Documents and Settings\JOSE\N\d.html"
'//////////////
ActiveWorkbook.FollowHyperlink "C:\Documents and Settings\JOSE\N\d.docx"
End Sub