Gentagelse af makro i alle ark

Hej Eksperter,

Jeg arbejder på et dokument, der kan hente den nuværende brugers navn i et Excel ark.

Jeg kan godt få koden til at virke i mit aktive ark. men koden vil ikke køre i alle arkene i min workbook.

min kode ser således ud:


Private Sub brugernavn2()

Dim searchrange As Range
Dim findinitialer As Range

Set searchrange = Range("A1:xfd1")
Set findinitialer = searchrange.Find(what:="Initialer", lookAt:=xlWhole)

If findinitialer Is Nothing Then
MsgBox "Brug celletekst 'Initialer' eller fjern makro"
Else
findinitialer.Offset(1, 0).Value = StrConv(Username, vbUpperCase)
End If
End Sub


funktionen formlen henviser til er:

Function Username()
Username = Environ("UserName")
End Function


Håber i kan hjælpe mig med at få det til at køre i alle ark, uden jeg skal skrive den lange kode ind i alle worksheets. :)

På forhånd tak.