Hide macros executions
 

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

Hide macros executions
 

Might be something in the called macro
BTW You do NOT need all these selections

with Sheets("Information")
.Range("c10,D1:D7,e10:f10").ClearContents
.Visible = xlVeryHidden
end with


--
Don Guillett
SalesAid Software

"Angeliki" wrote in 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