creating hyperlinks within a range that use a cells value as each hyperlinks name

[kbishop94]

Whats not working with this code is that instead of using each cell's value, its using the value of the last cell in the range for every cell in the range.
(the last cell in the range is A211, and the hyperlink for every cell from A1 to A211 are all the same(?)... they all are the same value as the last cell- cell A211. How can I make it so that each cell's hyperlink is the same as that cells value?) Thanks!

Private Sub CommandButton1_Click()
Dim cNam As Variant

    For Each cNam In Range(Cells(1, 1), Cells(211, 1))
        Hyperlinks.Add Range(Cells(1, 1), Cells(211, 1)), "J:\QMS_General Facility\Training\Employee_Training_Records\" & cNam.value
    Next cNam

End Sub

 

[ranman256]

Public Sub CreateHypers()
Dim cNam As Variant
    For Each cNam In Range(Cells(1, 1), Cells(211, 1))
        ActiveCell.Hyperlinks.Add cNam, "J:\QMS_General Fac1ility\Training\Employee_Training_Records\" & cNam.Value
    Next cNam
  

MsgBox "Done"
End Sub

 

[kbishop94]

Thanks ranman256!