Part 1, Create a Range Name where the names are to be listed (MyNames) M3:AG3. The code below should create the word documents and the hyperlink.
MD
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WordBasic As Object
Dim DefPath As String
Dim MyAdd As String
DefPath = "C:\AAA\"
Application.ScreenUpdating = False
If Not Intersect(Target, Range("MyNames")) Is Nothing Then
Dim WordDoc As Object
Set WordDoc = CreateObject("word.document")
'WordDoc.Application.Visible = True
WordDoc.SaveAs DefPath & Target & ".doc"
WordDoc.Application.Quit
Set WordDoc = Nothing
End If
Target.Select
MyAdd = DefPath & Target & ".doc"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=MyAdd
Application.ScreenUpdating = True
End Sub