Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Wa As Word.Application
If Right(Target, 4) = ".doc" Or Left(Right(Target, 5), 4) = ".doc" Then
Set Wa = New Word.Application
Wa.Visible = True
Wa.Documents.Open Filename:=Target.Value, ReadOnly:=True
End If
End Sub