paste special over copy data

[Guest]

Good Morning,

I have the following macro which works great except the paste section is
pasting over the copy so it asks if I want to replace. The answer will
always be yes but I don't know how to add that as part of the macro and
record doesn't seem to capture that mouse click. Thoughts?

Sub ConvertTargetDate()
'
' ConvertTargetDate Macro
'

'
Columns("E:F").Select
Selection.Insert Shift:=xlToRight
Columns("D").Select
Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=" ", FieldInfo:=Array(1, 3), TrailingMinusNumbers:=True
Columns("E:F").Select
Selection.Delete Shift:=xlToLeft
Range("D95000").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Columns("D").Select
Application.CutCopyMode = False
Selection.NumberFormat = "m/d/yyyy"
Range("D9").Select
End Sub

 

[Ken Johnson]

Hi, try...

Application.DisplayAlerts = False

Ken Johnson

 

[FunkySquid]

Turn off the display alerts like this:

Application.DisplayAlerts = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = true

and then turn them back on again.

FunkySquid

 

[Guest]

PERFECT!!!!! thanks so much!

Thanks!
Tara