I'd use:Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim cell As Range
If Not Application.Intersect(Target, Range("n4:n100")) Is Nothing Then
For Each cell In Target
If cell.Value <> "" Then
cell.Offset(0, 1).Value = Application.UserName
PFA...
On Mon, Oct 26, 2015 at 4:02 PM, Pravin Gunjal wrote:
> Dear Friends
>
> I have attached an excel file in which I have used macro to get "Created
> by" field automatically once the values are entered in column N (Qty).
> Likewise I want the last column (Entry Date) to be updated as curren
