[RESOLVED] Excel: Can this be simplified?

[krtxmrtz]

Is there a shorter / more direct way to do this?

Sub TestSub()
   'TestCell is the name of a specific
   'cell containing input data
    x = ThisWorkbook.Names("TestCell")
    y = Range(x).Value
    Cells(12,9).Value = y*y
End Sub