Hi FlyFisherman,
See if this works - I may have become confused along the way:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rws As Long, sh As Worksheet
Set sh = Worksheets("CABLE_MATRIX")
Rws = sh.Cells(Rows.count, "A").End(xlUp).row + 1
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:=sh.Range("A" & Rws, TextToDisplay:="CABLE_MATRIX A" & Rws)
End If: End If
'This code automatically copies info from active cells A and B to CABLE_MATRIX Sheet with same trigger as above
'(when "Cable Assy" is selected in dropdown cell K in Sheet "MAD_CAT -which is the active sheet)
If Not Intersect(Target, Range("A:B")) Is Nothing Then
Dim fVal As Range
Set fVal = sh.Range("A:B").Find(sh.Range("A" & Target.row).Value, LookIn:=xlValues)
Target.Resize(1, 2).Copy sh.Range("A" & fVal.row)
End If
End Sub
Bookmarks