gheyman
Well-known Member
- Joined
- Nov 14, 2005
- Messages
- 2,341
- Office Version
- 365
- Platform
- Windows
IT doesn't like
Sheet1.Range("C16").Activate
Sheet1.Range("C16").Activate
Code:
Private Sub Workbook_Open()
Sheet1.Range("C16").Value = Environ("Username")
Sheet1.Range("C17").Value = Now
Sheet1.Range("C21").NumberFormat = "m/d/yyyy h:mm"
Sheet1.Range("C16").Activate
End Sub
[Code/]
[Code\]
Thnaks
Last edited: