run time error 381 invalid property array index

[Patriot2879]

Hi please can you advise where i have gone wrong on the code below i am getting a run time error 381 invalid property array index

Private Sub Workbook_Open()
Dim Rng As Range
With Sheets("Sheet2")
Set Rng = .Range(.Range("F2"), .Range("F" & Rows.Count).End(xlUp))

End With
With Sheets("Sheet1")
.ComboBox1.Clear
.ComboBox1.List = Rng.Value
    
End With

End Sub

 

[Yongle]

The coding you supplied works correctly for me
Sheet1, Sheet2 & ComboBox1 exist - otherwise I would expect a different error

I suspect it is something in one of the ComboBox properties
- is there is a value against ListFillRange ?
- it would conflict with what the macro is doing and would cause an error (although my testing returned a different error message)
- delete that value, save, close and reopen the workbook

If there is not a value against ListFillRange then
- simply delete the combobox and create a new one (amend the code to point as ComboBox2 - or whatever the new ComboBox is called)
- do NOT change any properties until AFTER you have tested the code again
- save, close and re-open the workbook to test