combobox issue

[flyinghigher2011]

i hate finding bug, but i suppose that is part and parcel of doing this, but here goes.

here is my combobox code:

'Adds 20 - 200 in dropdownlist Bpm
Private Sub worksheet_Activate()

Dim i As Integer

For i = 20 To 200
Sheet1.Bpm.AddItem i
Next i
End Sub

when ever my workbook is in protected mode my combobox list is empty, then i have to unprotect workbook, unhide a worksheet clear content then go back to combobox and my list "20 -200" is there, flippin annoying.

can someone help please.

Link to file

I dont mind if i have to create a new sheet and call it temp and put from A2 downward 20 - 200 if that will help but still not sure how to programme it

i tried this code but did not work

Private Sub worksheet_Activate()
Dim Tempo As Range
Dim ws As Worksheet
Set ws = Sheet3("Temp")

For Each Tempo In ws.Range("Temp")
  With Me.Bpm
    .AddItem Tempo.Value
  End With
Next Tempo

End Sub