Sub CopyAndPasteTimes()
 Range("A:A").Copy
 Shell "notepad.exe", vbMaximizedFocus
 SendKeys "^v"


 SendKeys "^a"
 SendKeys "^c"

 If Application.CutCopyMode = False Then
 MsgBox "clipboard empty"
 Exit Sub
 End If

 MsgBox "Kopi er gennemført og du kommer tilbage til Excel"
 'now activate excel window hertil går det fint
******************************************************************


 Application.Workbooks("working daily excel with macros").Activate

 Sheets("Average Start Time data").Select
 Columns("A:A").Select
 Selection.ClearContents
 Range("B1").Activate
 SendKeys "^v"
 Range("b1").PasteSpecial Paste:=xlPasteAll
 MsgBox "Now you can close notepad"

 End Sub