If Target.Count > 1 Or Target.Column <> 11 Then Exit Sub
This line of code is exiting the sub if the updated cell is not in column K. Therefore when the dropdown in column A is updated, the new code is never reached.
Maybe this:
'This is option A to add hyperlink automatically. When "Cable Assy..." in column k dropdownn is selected then
'a hyperlink is automatically created which links to the next blank cell A on the Cable Matrix Worksheet.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rws As Long, sh As Worksheet
Set sh = Worksheets("CABLE_MATRIX")
With sh
Rws = .Cells(Rows.Count, "A").End(xlUp).Row + 1
End With
If Target.Count = 1 And Target.Column = 11 Then
If InStr(Target, "Cable Assy") <> 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Target.Offset(0, 5), Address:="", SubAddress:= _
"CABLE_MATRIX!A" & Rws, TextToDisplay:="CABLE_MATRIX!A" & Rws
End If
End If
' CHECK FOR NEXT CONDITION
For Each Cell In Target
If Cell.Column = 1 Then Cell.Offset(0, 11) = Date
Next Cell
End Sub
Bookmarks