vba pops up error 'Run-time error' 380 ': Unable to set property Value. Invalid property value. How to update it

[Majlo7]

Appears when "CPListBox = WT9cp"
I am a beginner or anyone knows how to solve this

Private Sub SpinButton2_SpinUp()


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

             '--- Select---
Label3 = Format(ActiveWorkbook.Worksheets("lo razem").Cells(ActiveCell.Row, 3).value, "dd.mmm.yyyy")
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").Select
ActiveCell.Offset(-1).Select
If ThisWorkbook.Worksheets("lo g").Cells(ActiveCell.Row, 11).value = "" Then
txtPoleCzasPoczątkowy = "__:__"
ComboBox1 = "__:__"
Else
txtPoleCzasPoczątkowy = Format(ThisWorkbook.Worksheets("lo g").Cells(ActiveCell.Row, 11).value, "hh:nn")
End If
If ThisWorkbook.Worksheets("lo g").Cells(ActiveCell.Row, 12).value = "" Then
txtPoleCzasKońcowy = "__:__"
ComboBox2 = "__:__"
Else
txtPoleCzasKońcowy = Format(ThisWorkbook.Worksheets("lo g").Cells(ActiveCell.Row, 12).value, "hh:nn")
End If
If ThisWorkbook.Worksheets("lo g").Cells(ActiveCell.Row, 15).value = "" Then
txtPoleCzasDodatkowy2 = "__:__"
ComboBox3 = "__:__"
Else
txtPoleCzasDodatkowy2 = Format(ThisWorkbook.Worksheets("lo g").Cells(ActiveCell.Row, 15).value, "hh:nn")
End If
TextBox29 = ThisWorkbook.Worksheets("lo g").Cells(ActiveCell.Row, 4).value


End Sub

 

[JLGWhiz]

Try changing your declaration for the variable WT9cp

WT9cp As Variant

 

[Majlo7]

Try changing your declaration for the variable WT9cp

WT9cp As Variant

this way doesn't work how you want I can send this file for you to have a look

 

[Majlo7]

this way doesn't work how you want I can send this file for you to have a look

and how setfocus controls work

 

[Majlo7]

Try changing your declaration for the variable WT9cp

WT9cp As Variant

here is the link to the file with which I have a problem

Meet Google Drive – One place for all your files

Google Drive is a free way to keep your files backed up and easy to reach from any phone, tablet, or computer. Start with 15GB of Google storage – free.

drive.google.com

 

[Majlo7]

managed to solve
the reason was that ListBox04.Selected (0) = True was not present

 

[smozgur]

Your post that you marked as the solution is not relevant to the error.

If you would like to explain the solution then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solution.