show current date and time when another cell change

try this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
    Application.EnableEvents = False
    Range("B" & Target.Row) = Now
    Application.EnableEvents = True
End If
End Sub

Copy the code, right-click the sheet tab, click View Code and paste into the code window. Close the VB editor.

try

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
    Application.EnableEvents = False
    Range("B" & Target.Row) = target.value &" " & Now
    Application.EnableEvents = True
End If
End Sub

If you just want the date, but not the time, exchange the Now in the code with Date

Your question was

I want to show current date & time in column B when cells in column A is change.

Can you please try to put yourself into the helper's shoes? If you post your real requirements from the start, a suitable solution could be provided first time round.

If you change the goal posts with every follow up post, it does not get any easier.

So.

Make up your mind what you want. Then post a complete description of your requirements. Be as specific as possible. For example, you wanted a time stamp in column B if a value in column A changes. Where would you want the time stamp for "all places in sheet" ??


Thanks