Simplify macro code

Hi all,

Private Sub ListBox1_Click()

    ActiveSheet.Shapes.Range(Array("ListBox1")).Select
    Range("A1").Value = ""

End Sub

Is there a way to simplify the two rows code into one?

Thanks