I have this change event:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
if target.count 1 then exit sub
if not intersect(target,Range("G10:G50")) is nothing then
if Not isempty(Target) then
Target.Offset(0,1).Resize(1,4).Name =
application.substitute(Target," ","_")
end if
End if
End Sub

Is there a way to ensure that the macro can convert any name into the
name of a range?

ex. "Excavator 450 (Hitachi)", "Front-end Loader 300"