track computer name

[ttowncorp]

is there a way in the code below to instead of it giving you the windows version but to give you the computer name instead for example the computer name is pc-1101and using another computer the name pc-1102

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
If Not Intersect(Target, Me.Range("A:A, L:L")) Is Nothing Then
For Each cell In Intersect(Target, Me.Range("A:A, L:L"))
If cell.Value <> "" Then
Me.Cells(cell.Row, "S").Value = Now()
Me.Cells(cell.Row, "T").Value = Application.UserName
Me.Cells(cell.Row, "U").Value = Application.OperatingSystem

Else
Me.Cells(cell.Row, "S").ClearContents
Me.Cells(cell.Row, "T").ClearContents
Me.Cells(cell.Row, "U ").ClearContents

End If
Next cell
End If
End Sub

 

[Fluff]

How about

Me.Cells(cell.Row, "U").Value = Environ("computername")

 

[ttowncorp]

How about

Me.Cells(cell.Row, "U").Value = Environ("computername")

thank you for this.

 

[Fluff]

You're welcome & thanks for the feedback.

 

[smozgur]

thank you for this.

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.