Private Sub Workbook_Open()
Dim uname As String
Sheets("Sheet1").Select
uname = Environ("UserName")
Select Case uname
Case Is = "Gord"
Range("A1").Value = uname
Case Is = "Ralph"
Range("A2").Value = uname
Case Is = "Agnes"
Range("A3").Value = uname
End Select
End Sub


Gord Dibben MS Excel MVP


On Tue, 23 Sep 2008 08:38:26 -0700, pdaws
wrote:

I have created a form in Excel 2002 that requires three different signatures.
I would like for each signature's username to appear in the specific cell
that they should sign when they review the form. Is there any way to create
such a code?