Hi Grant,

Sub test()
Dim strQueryName As String

strQueryName = ActiveSheet.Range("AM2")

Range(strQueryName).Select
Selection.Delete Shift:=xlUp
End Sub


Alternatively:

Sub test()
Activesheet.names(ActiveSheet.Range("AM2").Value). ReferstoRange.Delete
Shift:=xlUp
End Sub

Note this sub contains a single line of code (word wrap might change
that in this message)

Regards,

Jan Karel Pieterse
Excel MVP
www.jkp-ads.com