Code help

[fireslguk]

Hi can someone assist on the following code- it works fine however instead of showing sheet 1 etc when it creates to have the sheet named as the time, so when the code is run again 10 mins later the new sheet created is a later time

Private Sub CommandButton2_Click()

keybd_event VK_MENU, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0

ActiveSheet.Unprotect “12”
Sheets(“Status”).Range(“L2”).Value = Now
ActiveSheet.Protect “12”

Sheets.Add

End Sub

 

[fireslguk]

Forgot to add this !





Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)



Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12
Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)