how can i change time to AM/PM in this code

[cardinaldeb]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
' hiker95, 12/04/2012
' [URL]http://www.mrexcel.com/forum/excel-questions/672492-scan-barcode-excel-date-time-stamp-out.html[/URL]
If Intersect(Target, Range("A2:A3000")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
Dim lc As Long
With Application
  .EnableEvents = False
  .ScreenUpdating = False
  lc = Cells(Target.Row, Columns.Count).End(xlToLeft).Column
  If lc = 1 Then
    Cells(Target.Row, lc + 2) = Format(Now, "m/d/yyyy h:mm")
  ElseIf lc > 2 Then
    Cells(Target.Row, lc + 1) = Format(Now, "m/d/yyyy h:mm")
  End If
  .EnableEvents = True
  .ScreenUpdating = True
End With
End Sub

 

[wideboydixon]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
' hiker95, 12/04/2012
' http://www.mrexcel.com/forum/excel-q...stamp-out.html
If Intersect(Target, Range("A2:A3000")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub

Dim lc As Long

With Application
  .EnableEvents = False
  .ScreenUpdating = False
  lc = Cells(Target.Row, Columns.Count).End(xlToLeft).Column
  lc = lc + IIf(lc = 1, 2, 1)
  Cells(Target.Row, lc + 1) = Format(Now, "m/d/yyyy h:mm AMPM")
  .EnableEvents = True
  .ScreenUpdating = True
End With

End Sub

WBD