Hi all,
Is there a way to simplify the two rows code into one?
Thanks
Code:
Private Sub ListBox1_Click()
ActiveSheet.Shapes.Range(Array("ListBox1")).Select
Range("A1").Value = ""
End SubThanks