Hi, forgive my poor coding, as I haven't learnt VBA at all. How do I
ger rowendrange and nowrow to return the cell range instead of the
cell value?

Dim rowend As String
Dim rowendrange As Range
Dim nowrow As Range
Dim lastrow As Range

If Me.TextBox1.Value = "" Then
rowend = 0
Else
rowend = Me.TextBox1.Value
End If

rowendrange = ActiveCell.Offset(rowend, 0).Range
nowrow = ActiveCell.Offset(0, -2).Range

Me.TextBox2.Value = nowrow
Me.TextBox3.Value=rowendrange

Thanks in advance

Rich

I think when you are saying "range" you actually mean "address". In which
case, change the two lines to:

rowendrange = ActiveCell.Offset(rowend, 0).Address
nowrow = ActiveCell.Offset(0, -2).Address

--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"Richhall" wrote:

Hi, forgive my poor coding, as I haven't learnt VBA at all. How do I
ger rowendrange and nowrow to return the cell range instead of the
cell value?

Dim rowend As String
Dim rowendrange As Range
Dim nowrow As Range
Dim lastrow As Range

If Me.TextBox1.Value = "" Then
rowend = 0
Else
rowend = Me.TextBox1.Value
End If

rowendrange = ActiveCell.Offset(rowend, 0).Range
nowrow = ActiveCell.Offset(0, -2).Range

Me.TextBox2.Value = nowrow
Me.TextBox3.Value=rowendrange

Thanks in advance

Rich