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
|