I use office 2016 Pro
I firstly did this by using
Private Sub ComboBox1_Change()
Dim MyWB As Workbook
Set MyWB = Workbooks.Open(ThisWorkbook.Path & ".\readings\" & Year(Date) & " - Table.xlsx")
If MyWB.Sheets(1).Cells(ComboBox1.Value + 1, 2).Value = 0 Then
TextBox1.Text =...