Dynamic reference list of sheet in Excel workbook

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
WorkSheets(ListBox1.Value).Activate
End Sub

didnt spot that, if you change above sub to this you can activate any worksheet from the listbox listing