tryn = ActiveCell.Value
Sheets("Detail").Select
NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(NextRow, 5).Select
ActiveCell.Value = n
better to avoid using active anything, work with fully qualified rangesvb Code:
sheets("detail").cells(sheets("detail").rows.count, 1).offset(1, 4).value = activecell.value




Reply With Quote