Hi, I have three cells I am working with that I've defined names for and each set to the scope of the worksheet.

CELL_Domains is a drop-down with a list of domains to choose from.
CELL_Tasks consists of merged cells defined as a Text data type, it's value is pulled from a Task LookUp List which updates based on what is selected within the CELL_Domains drop-down.
CELL_Task-Height is an empty cell that is adjacent to the displayed tasks and when I manually adjust it's row height it expands the height of the merged CELL_Tasks
All but two of the displayed task values fit within CELL_Task-Height.RowHeight= 20.
The two longer task values both fit within CELL_Task-Height.RowHeight = 150

I've been trying to modify the subroutine below that I happened upon to automate the manual row height change described above; but it isn't working for me.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TriggerCell As Range, TargetCell As Range
Dim hgt As Variant

Set TriggerCell = Range("CELL_Domain")
Set TargetCell = Range("CELL_TaskHeight")

If Not Intersect(Target.Range) Is Nothing Then
If TriggerCell.Value = "Planning" OR TriggerCell.Value = "Cross-Domain" Then
hgt = 150
Else
hgt = 20
End If
End If

TargetCell.EntireRow.RowHeight = hgt

End Sub

I'd appreciate any in-sight into what I've done incorrectly.