vba wyskakuje błąd "Run-time error '380': Could not set the Value property. Invalid property value. jak można go rozwiązać

[Majlo7]

Pojawia się w momencie "CPListBox = WT9cp"
Jestem początkujący czy ktoś wie jak to rozwiązać

Private Sub SpinButton2_SpinUp ()


'            'lo razem
' '--- Wybierz---
ThisWorkbook.Worksheets ("lo razem"). Wybierz
ActiveCell.Offset (-1). Wybierz

             '--- Wybierz---
Label3 = Format (ActiveWorkbook.Worksheets ("lo razem"). Cells (ActiveCell.Row, 3) .value, "dd.mmm.rrrr")
Dim WT1czas  As String, WT2ustalony  As String, WT3zu  As String, WT4z_o As String, WT5urlopy  As String, WT6święto  As String, _
WT7lekarz As String, WT8zl As String, WT9cp As String
WT1czas = ActiveWorkbook.Worksheets ("lo razem"). Cells (ActiveCell.Row, 5) .value
WT2ustalony = ActiveWorkbook.Worksheets ("lo razem"). Cells (ActiveCell.Row, 6) .value
WT3zu = ActiveWorkbook.Worksheets ("lo razem"). Cells (ActiveCell.Row, 7) .value
WT4z_o = ActiveWorkbook.Worksheets ("lo razem"). Cells (ActiveCell.Row, 8) .value
WT5urlopy = ActiveWorkbook.Worksheets ("lo razem"). Cells (ActiveCell.Row, 9) .value
WT6święto = ActiveWorkbook.Worksheets ("lo razem"). Cells (ActiveCell.Row, 10) .value
WT7lekarz = ActiveWorkbook.Worksheets ("lo razem"). Cells (ActiveCell.Row, 11) .value
WT8zl = ActiveWorkbook.Worksheets ("lo razem"). Cells (ActiveCell.Row, 12) .value
WT9cp = ActiveWorkbook.Worksheets ("lo razem"). Cells (ActiveCell.Row, 14) .value
ListBox01 = WT1czas
ListBox02 = WT2ustalony
ListBox03 = WT3zu
ListBox04 = WT4z_o
ListBox05 = WT5urlopy
ListBox06 = WT6święto
ListBox07 = WT7lekarz
ListBox08 = WT8zl
CPListBox = WT9cp

ActiveWorkbook.Worksheets ("lo g”). Wybierz
ActiveCell.Offset (-1). Wybierz
Jeśli ThisWorkbook.Worksheets ("lo g"). Komórki (ActiveCell.Row, 11) .value = "" Wtedy
txtPoleCzasPoczątkowy = "__:__"
ComboBox1 = "__: __”
Jeszcze
txtPoleCzasPoczątkowy = Format (ThisWorkbook.Worksheets ("lo g"). Cells (ActiveCell.Row, 11) .value, "hh: nn")
Zakończ, jeśli
Jeśli ThisWorkbook.Worksheets ("lo g"). Komórki (ActiveCell.Row, 12) .value = "" Wtedy
txtPoleCzasKońcowy = "__:__"
ComboBox2 = "__: __”
Jeszcze
txtPoleCzasKońcowy = Format (ThisWorkbook.Worksheets ("lo g"). Cells (ActiveCell.Row, 12) .value, "hh: nn")
Zakończ, jeśli
Jeśli ThisWorkbook.Worksheets ("lo g"). Komórki (ActiveCell.Row, 15) .value = "" Wtedy
txtPoleCzasDodatkowy2 = "__:__"
ComboBox3 = "__: __”
Jeszcze
txtPoleCzasDodatkowy2 = Format (ThisWorkbook.Worksheets ("lo g"). Cells (ActiveCell.Row, 15) .value, "hh: nn")
Zakończ, jeśli
TextBox29 = ThisWorkbook.Worksheets ("lo g"). Cells (ActiveCell.Row, 4) .value

Napis końcowy

 

[davesexcel]

CPListBox

Do you have a list box with that name?

 

[Majlo7]

yes

 

[Fluff]

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).