Celle adresse

rng.Offset(0,1)=Cell.Address(False, False)

Jeg kan se at du er ved at lave en log.
Application.UserName er måske ikke så smart her, da mange ikke udfylder dette felt i excel eller der standard bare står et firmanavn her (tages fra Funktioner-indstillinger-Standard-Brugernavn)
Du kan istedet bruge deres logon-navn ved at indsætte 3 ekstra linier.

Public Sub Hvem(Target)
Dim rng As Range
Dim C As String
Dim i As Long
Dim cell As Range
Dim objWSH As Object
Set objWSH = CreateObject("WScript.Network")


C = Target.Address
i = 0
For Each cell In Target
  i = i + 1
  Set rng = Sheets("Log").Range("A65536").End(xlUp).Offset(1, 0)
  rng.Value = Now
  rng.Offset(0, 1) = cell.Address
  rng.Offset(0, 2) = "'" & cell.Formula
  rng.Offset(0, 3) = objWSH.UserName

Next
End Sub

bak-> Eller  bare rette sidste linie til:

rng.Offset(0, 3) = Environ("UserName")

Så sparer du de andre :-)

Så virker det uden $ tegn.

Alletiders ide med at bruge logon navn, i stedet for application username. Det er nu ikke det store problem, da det skal bruges på jobbet, hvor vi alle er registreret brugere i alle office programmer.

Point til jer begge, for brugbar kode.

Tak for hjælpen.