Reusing a list of options on a form

a couple of changes.

First, where is the code? And, what is the name of the combo box? (cannot tell from the code you posted if cmbDivision is a variable or the name of the box)

If the code is on the window of the sheet that contains the combo box, then the code would be:

With Me.cmbDivision
    .ListFillRange = "ListData!A2:A15"
End With

Note that the ListFillRange is a String, not a Range.

If the code is in a module, and you use the Object name for the Worksheet containing the combo box, and the Object name of that worksheet (NOT the name on the tab) is Sheet1 then the code is:

With Sheet1.cmbDivision
    .ListFillRange = "ListData!A2:A15"
End With

If you are using the name on the tab of the worksheet, then it would have to be something like this:

With Sheets("mySheet").OLEObjects("cmbDivision")
    .ListFillRange = "ListData!A2:A15"
End With