Hello again

When I run this macro i can see every step is making.
Although i wrote application.screenupdating i can still see what macros do.
Can you pleaze tell what should i write in the macro code in order not to
see what's going on?

Thanks
Angeliki


Sub Clear()

Application.ScreenUpdating = False

Application.Run "'New Triangle Model_1j.xls'!Show_AllSheets_Click"
Sheets("Information").Select
Range("D1:D7").Select
Selection.ClearContents
Range("C10").Select
Selection.ClearContents
Range("E10").Select
Selection.ClearContents
Range("F10").Select
Selection.ClearContents
Cells(1, 1).Select
Sheets("Information").Visible = xlVeryHidden
Sheets("Exposure").Select
Range("C16:C25").Select
Selection.ClearContents
Range("F7:F26").Select
Selection.ClearContents
Cells(1, 1).Select
Sheets("Exposure").Visible = xlVeryHidden
Sheets("Losses Paid").Select
Range("A7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Cells(1, 1).Select
Sheets("Losses Paid").Visible = xlVeryHidden
Sheets("Losses OS").Select
Range("C7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A8:B8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Cells(1, 1).Select
Sheets("Losses OS").Visible = xlVeryHidden
Sheets("Losses Incurred").Select
Range("A8").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Cells(1, 1).Select
Sheets("Losses Incurred").Visible = xlVeryHidden
Application.Run "'New Triangle Model_1j.xls'!Hide_AllData_Click"
Sheets("Input").Select
Range("A1").Select

Application.ScreenUpdating = True

End Sub

Hi,
try
Application.ScreenUpdating = False
Regards,
Valeria
-----Original Message-----
Hello again

When I run this macro i can see every step is making.
Although i wrote application.screenupdating i can still
see what macros do.
Can you pleaze tell what should i write in the macro code
in order not to
see what's going on?

Thanks
Angeliki


Sub Clear()

Application.ScreenUpdating = False

Application.Run "'New Triangle Model_1j.xls'!
Show_AllSheets_Click"
Sheets("Information").Select
Range("D1:D7").Select
Selection.ClearContents
Range("C10").Select
Selection.ClearContents
Range("E10").Select
Selection.ClearContents
Range("F10").Select
Selection.ClearContents
Cells(1, 1).Select
Sheets("Information").Visible = xlVeryHidden
Sheets("Exposure").Select
Range("C16:C25").Select
Selection.ClearContents
Range("F7:F26").Select
Selection.ClearContents
Cells(1, 1).Select
Sheets("Exposure").Visible = xlVeryHidden
Sheets("Losses Paid").Select
Range("A7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Cells(1, 1).Select
Sheets("Losses Paid").Visible = xlVeryHidden
Sheets("Losses OS").Select
Range("C7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A8:B8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Cells(1, 1).Select
Sheets("Losses OS").Visible = xlVeryHidden
Sheets("Losses Incurred").Select
Range("A8").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Cells(1, 1).Select
Sheets("Losses Incurred").Visible = xlVeryHidden
Application.Run "'New Triangle Model_1j.xls'!
Hide_AllData_Click"
Sheets("Input").Select
Range("A1").Select

Application.ScreenUpdating = True

End Sub






.