Maybe add an errorhandler to see what's going on?

[VBA] On Error GoTo 1
ActiveWorkbook.FollowHyperlink (ActiveWorkbook.Path & "\TestDoc.doc"), NewWindow:=True
Exit Sub
1: MsgBox Err.Description[/VBA]