Hi,

I suspect this is fairly straight forward, however I'm struggling to solve on my own even with the help of googlings.

I have a list box, and depending on what selection is made earlier in the process depends on what ListFillRange is going to be.

So if they click March the listfillrange will be marlist - so the first 3 letters followed by list.
If they click April the listfillrange will be Aprlist - again first 3 letter followed by list.

That part I'm sorted on, it's then applying it to the listbox21 control

Sub Fill_Range()
    
    Dim Fill As String
    Dim Fault As String
    
    Fault = Sheets("Menu").Range("A1").Text
    
    Fill = Left(Fault, 3) & "List"

    ListBox21.ListFillRange = Fill
    
End Sub