Hi Vijay
In the Thisworkbook module, I added these two macros
Private Sub Workbook_BeforeClose(Cancel As Boolean)
HideAllSheets
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
HideAllSheets
End Sub
and in the Module 1, I entered
Sub HideAllSheets()
Di
Hi
This code deletes all of the data on sheet B, then makes a copy of the data
into tow columns, leaving your original sheet A intact.
It should perform a little faster, as there is not all of the selections
taking place, and disabling screen updating will also significantly
increase speed.
Su
