Sub NewWk()     Dim Wb As Workbook     Dim Sh As Worksheet     Set Wb = ThisWorkbook     Application.SheetsInNewWorkbook = 1   &nb…