Sziasztok!

Sub auto_open()

Range("M138").Value = Environ("USERNAME")

End Sub

ez remekül működik az első lapon

hogyan tudnám megoldani, hogy a 10 lapból az első 3 lapon ugyanígy beírja az M138-ba a felhasználó nevét?