With Workbooks("Book2").ActiveSheet

Workbooks("Book1").Sheets("Information").Range
("A1:I12").Copy

.Range("A1").PasteSpecial xlValues
.Range("A1").PasteSpecial xlFormats
.Columns("A:I").Select
.Columns("A:I").EntireColumn.AutoFit
.Range("A1").Activate
.Name = "Information"

Windows("Book1").Activate
Application.CutCopyMode = False
Range("A1").Select

End With

HTH

Patrick Molloy
Microsoft Excel MVP


-----Original Message-----
Hello
I wrote a code that copys values from one workbook to
another workbook.
The problem is that when goes from one workbook to
another there is a
flickering in the screen. Eventhough i wrote
application.screenupdating
still showing macros executions
Can you tell me how to hide macro execution?Thanks in
advance

Thanks
AngelikiS



application.screenupdating= False

Windows("Book1").Activate
Sheets("Information").Select
Range("A1:I12").Select
Selection.Copy
Windows("Book2").Activate
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats,
Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Columns("A:I").Select
Columns("A:I").EntireColumn.AutoFit
Range("A1").Select
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Information"

Windows("Book1").Activate
Application.CutCopyMode = False
Range("A1").Select

application.screenupdating= True








.