save in new destination
 

Hello, hope you can help. I have this macro which works for me, all I need is for the file to end up in this folder here with date & timestamp
C:\Copy Records

how do I add this to this macro?

Sub CopyToWord()
Dim objWord, objDoc As Object
ActiveWindow.View = xlNormalView
Range("A1:u24").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
objWord.Visible = True
objWord.Selection.Paste
objWord.Selection.TypeParagraph
End Sub

any help is much appreciated
regards
Ditchy