Sub Update()
'
' Update Macro
' Macro recorded 19/04/2006 by paulwadsworth
'

'
Workbooks.OpenText Filename:= _
Range("H2"), Origin:=932, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
Comma:=False _
, Space:=False, Other:=True, OtherChar:="|",
FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 4), Array(6, 1),
Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1),
Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1),
Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26,
1), Array(27, 1), Array( _
28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1)),
TrailingMinusNumbers _
:=True
Cells.Select
Selection.Copy
Application.WindowState = xlMinimized
Windows("Status").Activate
Sheets("ZZ").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Sheet4").Select
Range("A11").Select
Application.CutCopyMode = False
ActiveSheet.PivotTables("PivotTable1").PivotCache. Refresh
End Sub

This minimises the spreadsheet when I run it... is there anyway of stopping
that?