Private Sub VBA AND function

I can not get my AND function to work in a Private Sub:

Private Sub Worksheet_Change(ByVal Target As Range)
'Freeze screen while updating
Application.ScreenUpdating = False

If Target.Value(D44) = "YES" AND Target.Value(D45) = "YES" Then
Rows("46:47").EntireRow.Hidden = False
Range("D45").Select
Else
Rows("46:47").EntireRow.Hidden = True
End If

'Unfreeze screen
Application.ScreenUpdating = True
End Sub

Please help.