I want to have a vba code that auto hiding range row 1-10 in worksheet B if len cell B(1-10) is < 1 (null)

When value in cell D1:10 in worksheet A is changed

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ws As Worksheet
Dim ws2 As Worksheet
Set ws = Sheets(“A”)
Set ws2 = Sheets(“B”)
If Target.Address = ws.Range(“D1:D10”) Then
ws2.Rows(“1:10”).Hidden = True
For a = 1 To 10 Step 1
If Len(ws2.Range(“D” & a).Value) > 1 Then
Rows(a).Hidden = False
End If
Next a
End If
End Sub