Hi Steph

Try the following

Private Sub ListBox3_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
ListBox3.ColumnCount = 4
ListBox3.AddItem "West"
ListBox3.AddItem "East"
ListBox3.AddItem "North"
ListBox3.AddItem "South"
ListBox3.ColumnWidths = 200
UserForm1.Show
ListBox3.Clear 'This is to clear the Listbox otherwise it will load
the items every time

End Sub