Macro that will hide/unhide rows based on message box answer

So I need some help.

I have a VBA code that generates a message box when the value in D6 changes.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D6")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "Promotion" Then
MsgBox ("REMINDER The majority of the time .....")
ElseIf Target.Value = "Pay Adjustment" Then
MsgBox ("REMINDER: In general....")
ElseIf Target.Value = "Lateral Position Change" Then
MsgBox ("REMINDER: ...")
End If
End Sub

I would need to add the YES/NO commands to the message box and if Yes hide a range of rows and unhide a different range of rows.

Any and all help would be greatly appreciated.

Thank you,