application user input

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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
> news:[email protected]...
> > 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
>
>
>