|
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
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 . |
| All times are GMT +1. The time now is 02:57 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com