Hi,

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

To:
RowNumber = ActiveCell.Row

If you need to ensure sheet integrity, activate the sheet first, then get
the row:

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

HTH.

"Przybo" wrote:

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