I need to create a Named Range via VBA

For each cell in Column A, if the value of the cell = "ABCD" then include the entire row in the Named Range

So if A8, A13 & A18 contain "ABCD" then
MyNewNamedRange ='Sheet1'!$8:$8,'Sheet1'!$13:$13,'Sheet1'!$18:$18

Thank you