This should do it:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("Method").Address Then
If Me.Range("Method").Value = "D" Then
Rows("14:19").EntireRow.Hidden = False
Rows("51:53").EntireRow.Hidden = False
Else
Rows("51:53").EntireRow.Hidden = True
Rows("14:19").EntireRow.Hidden = True
End If
End If
End Sub

Regards,
Per

On 27 Nov., 18:16, gtslabs wrote:
Trigger Macro based on single Cell change

I have a range named "Method". it is only 1 cell and contains the Data
Validation Letters A,B,C,D and is used on the form as a dropdown list.

I want to trigger the following code based on the value (A,B,C or D).
Right now it uns every time I change any cell value in the worksheet.
Can this be done?

Private Sub Worksheet_Change(ByVal Target As Range)

If Me.Range("Method").Value = "D" Then
* * Rows("14:19").Select
* * Selection.EntireRow.Hidden = False
* * Rows("51:53").Select
* * Selection.EntireRow.Hidden = False

* * Else

* * Rows("51:53").Select
* * * Selection.EntireRow.Hidden = True
* * Rows("14:19").Select
* * Selection.EntireRow.Hidden = True
End If
End Sub