LISTBOX 목록 상자를 만들려고 하는데 ...

코드좀 다시 만들어 주시면 감사 하겠습니다

"범례!M2:M22" 요기 값을 목록에서 선택 => sheet3번의 FH16셀에 들어가게 하려고 합니다

Private Sub ListBox1_Click()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Set ws = ThisWorkbook.Sheets("범례")
Set rng = ws.Range("M2:M22")
ListBox1.Clear
For Each cell In rng
If cell.Value <> "" Then
ListBox1.AddItem cell.Value
End If
Next cell
End Sub

잘 안됨..ㅠㅠ