Sub Macro3()
'
' Macro3 Macro
'
'
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Workbooks.Open Filename:= _
"C:UsersstefanoDocumentsMy Dropboxdativenditaarticoli.xls"
Range("A2:E2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
ActiveWindow.WindowState = xlMaximized
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
End Sub |