need a way to get excell to enter the "application user" name into cell c3 ?

Sub auto_open()
Sheets("log").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("A2").Select
Selection.NumberFormat = "dd-mmm-yy"
Range("B2").Select
Selection.NumberFormat = "h:mm"
Range("c2").Select

End Sub

thanks in advance

Hi Rich,

Perhaps there is a hidden subtlety, but try:

Sheets("log").Range("C3") = Application.UserName

---
Regards,
Norman



"Rich" wrote in message
...
need a way to get excell to enter the "application user" name into cell c3
?

Sub auto_open()
Sheets("log").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("A2").Select
Selection.NumberFormat = "dd-mmm-yy"
Range("B2").Select
Selection.NumberFormat = "h:mm"
Range("c2").Select

End Sub

thanks in advance

thanks it worked, thought it would be sommert like imput ,, which is why i
couldnt get it to work

"Norman Jones" wrote:

Hi Rich,

Perhaps there is a hidden subtlety, but try:

Sheets("log").Range("C3") = Application.UserName

---
Regards,
Norman



"Rich" wrote in message
...
need a way to get excell to enter the "application user" name into cell c3
?

Sub auto_open()
Sheets("log").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("A2").Select
Selection.NumberFormat = "dd-mmm-yy"
Range("B2").Select
Selection.NumberFormat = "h:mm"
Range("c2").Select

End Sub

thanks in advance