Can anyone help me with this code?

I'm not sure why it's not working


Private Sub MultiPage1_Change()
Dim RowNumber As Variant

RowNumber = Sheets("Access Upload").ActiveCell.Row

TextBox1.Value = Sheets("Access Upload").Range("A " & RowNumber & "")

End Sub