Macros To Save Worksheet as New xlsx file & Save Another Worksheet As A Text File

Sorry i mistyped in the line above

Change

For i = i To Sheets("Config").UsedRange.Rows.Count

To

For i = 1 To Sheets("Config").UsedRange.Rows.Count