Simplify macro code

**DavidRoger** · 04-13-2013, 11:37 PM

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

**TMS** · 04-14-2013, 04:56 AM

I wouldn't have thought so.

Maybe:

Private Sub ListBox1_Click()

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

End Sub

Still two separate actions but on one line

Regards, TMS

**DavidRoger** · 04-14-2013, 05:14 AM

[QUOTE=TMShucks;3196864]

Private Sub ListBox1_Click()

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

End Sub

Thanks. That's good enough

**TMS** · 04-14-2013, 05:33 AM

You're welcome. Thanks for the rep.

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save

You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.