Paste this code in a Standard Code Module. Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim rDetail As Range, rFieldsToKeep As Range Set rDetail = Cells(1).CurrentRegion '-if new sheet is blank, rDetail.Count will be 1 If rDetail.Count 0 Then MsgBox "Named range: lstFieldsToKeep not found" Exit Sub End If '-Calls procedure to remove all fields ' except those listed in rFieldsToKeep Call KeepFields(rExistingData:=rDetail, _ rFieldsToKeep:=rFieldsToKeep)End Sub Paste this code in the ThisWorkbook module. Thanks! I tried following the thread but got lost.
0 kommentar(er)
