Quick start guide for spinorama presentations in VituixCAD using Amir's shared spindata

[BYRTT]

Get free VituaixCAD software and pdf-file guides at this link https://kimmosaunisto.net/ and suggest if it makes one happy in the long run then down the road one can make a whatever donation to creator via dialog in "Help" meny.

For animated quick start guide below one can download the VituixCAD prepared spindata zip-folder attached below for Genelec 8341A named "Steps_x72_(Genelec_8341A).zip", and for other released or future speaker reviews use the attached zip-folder named "ASR_txt_files_convert_to_VituixCAD.zip" to convert Amir's few txt-file data to multiple txt-files that VituixCAD can understand, for converter there is a how to guide in that zip-folder and in converter is a MS Excell 2010 spreadsheet with macro automation one needs have access to a computer with a licensed MS Excell program.

VituixCAD can do tons of speaker related neat stuff/manipulation and maybe if requested i can add more guides, but above guide should get one going reading Amir's spindata and if one right click or double click in the two graphs "Power & DI"/"Directivity" it should speak for itself how to get possibilityes change graph presentations or capture them.

 

[aarons915]

I'm having trouble getting this to work, has anyone had the error "Run time error 9 subscript out of range"? I did change the last column to the correct value and made sure I have a USB that is labelled D: with the folder put in the drive just as the help drive shows. The macro looks like it finished just the first on axis measurement and creates a sheet 2 with the 1 measurement but then it gets hung up, nothing is in the step x 72 folder either. Any help would be appreciated, this would be a really useful tool.

 

[BYRTT]

Hi @aarons915, only error myself had is the last point about line seventeen in macro settings explained in "How_to_guide.png" for Excell macro, so in general after the inset of data always schroll down the spreadsheet to check that last row/line number is consistent to setting in macro and if its not then edit line seventeen in macro before one run the macro.

Mine operating system and Excell 2010 is Danish language pakages and member @napilopez is in US language and gave me below feedback in a PM about get the spreadsheet up running:

I had to change a few things in the macro to make it work ('ark' to 'sheet' for example because I'm not in denmark) but it's been a huge time saver!

So my forward suggestion will be try open the empty horizontal plus vertical spread sheet and edit macro line seventeen to 197 as guided in that png-file guide and go to Excell settings and set "ark" to "sheet" and now save them both spreadsheets, then try a run on the latest review for Revel M106 that i know is printed from Amir using 197 rows/lines, else should it not work try PM napilopez and see if he would share his actual spreasheet ...

 

[aarons915]

So my forward suggestion will be try open the empty horizontal plus vertical spread sheet and edit macro line seventeen to 197 as guided in that png-file guide and go to Excell settings and set "ark" to "sheet" and now save them both spreadsheets, then try a run on the latest review for Revel M106 that i know is printed from Amir using 197 rows/lines, else should it not work try PM napilopez and see if he would share his actual spreasheet ...

I think that is the problem, when I ran the debug it went to the line that said Ark, I'll change it to sheet, thank you.

 

[AnalogSteph]

Instead of using search & replace on the text files, you can also import them into Libreoffice Calc (choose English (US), deselect comma as separator).

I can just about deal with fixed absolute paths (will have to look into that later), but having to change macro code depending on your language was a bit too silly for my tastes altogether.

After much Googling and fussing about (I had never actually used VBA), I managed to solve this.
Replace

    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Sheets("Ark1").Select
    Sheets("Ark1").Name =

(as many as there are) by

    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name =

after having declared

    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim sht As Worksheet

first.

Example code for horizontal, with range fixed for JBL 104 measurements:

Sub ASR_Klippel_file_run()

    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "*On-Axis"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "Phase[Deg]"
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C4").Select
    Selection.Copy
   
    Range("C5:C203").Select
   
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-27
    Range("D1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "*+10°"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("F:F").Select
    ActiveSheet.Paste
   
    Range("G1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "*-10°"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("I:I").Select
    ActiveSheet.Paste
   
    Range("J1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("J2").Select
    ActiveCell.FormulaR1C1 = "*+20°"
    Range("J3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("L:L").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("L:L").Select
    ActiveSheet.Paste
   
    Range("M1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "*-20°"
    Range("M3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("O:O").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("O:O").Select
    ActiveSheet.Paste
   
    Range("P1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "*+30°"
    Range("P3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("R:R").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("R:R").Select
    ActiveSheet.Paste
   
    Range("S1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("S2").Select
    ActiveCell.FormulaR1C1 = "*-30°"
    Range("S3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("U:U").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("U:U").Select
    ActiveSheet.Paste
   
    Range("V1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("V2").Select
    ActiveCell.FormulaR1C1 = "*+40°"
    Range("V3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("X:X").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("X:X").Select
    ActiveSheet.Paste
   
    Range("Y1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("Y2").Select
    ActiveCell.FormulaR1C1 = "*-40°"
    Range("Y3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AA:AA").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AA:AA").Select
    ActiveSheet.Paste
   
    Range("AB1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AB2").Select
    ActiveCell.FormulaR1C1 = "*+50°"
    Range("AB3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AD:AD").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AD:AD").Select
    ActiveSheet.Paste
   
    Range("AE1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AE2").Select
    ActiveCell.FormulaR1C1 = "*-50°"
    Range("AE3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AG:AG").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AG:AG").Select
    ActiveSheet.Paste
   
    Range("AH1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AH2").Select
    ActiveCell.FormulaR1C1 = "*+60°"
    Range("AH3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AJ:AJ").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AJ:AJ").Select
    ActiveSheet.Paste
   
    Range("AK1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AK2").Select
    ActiveCell.FormulaR1C1 = "*-60°"
    Range("AK3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AM:AM").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AM:AM").Select
    ActiveSheet.Paste
   
    Range("AN1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AN2").Select
    ActiveCell.FormulaR1C1 = "*+70°"
    Range("AN3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AP:AP").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AP:AP").Select
    ActiveSheet.Paste
   
    Range("AQ1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AQ2").Select
    ActiveCell.FormulaR1C1 = "*-70°"
    Range("AQ3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AS:AS").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AS:AS").Select
    ActiveSheet.Paste
   
    Range("AT1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AT2").Select
    ActiveCell.FormulaR1C1 = "*+80°"
    Range("AT3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AV:AV").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AV:AV").Select
    ActiveSheet.Paste
   
    Range("AW1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AW2").Select
    ActiveCell.FormulaR1C1 = "*-80°"
    Range("AW3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AY:AY").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AY:AY").Select
    ActiveSheet.Paste
   
    Range("AZ1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AZ2").Select
    ActiveCell.FormulaR1C1 = "*+90°"
    Range("AZ3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BB:BB").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BB:BB").Select
    ActiveSheet.Paste
   
    Range("BC1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BC2").Select
    ActiveCell.FormulaR1C1 = "*-90°"
    Range("BC3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BE:BE").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BE:BE").Select
    ActiveSheet.Paste
   
    Range("BF1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BF2").Select
    ActiveCell.FormulaR1C1 = "*+100°"
    Range("BF3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BH:BH").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BH:BH").Select
    ActiveSheet.Paste
   
    Range("BI1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BI2").Select
    ActiveCell.FormulaR1C1 = "*-100°"
    Range("BI3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BK:BK").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BK:BK").Select
    ActiveSheet.Paste
   
    Range("BL1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BL2").Select
    ActiveCell.FormulaR1C1 = "*+110°"
    Range("BL3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BN:BN").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BN:BN").Select
    ActiveSheet.Paste
   
    Range("BO1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BO2").Select
    ActiveCell.FormulaR1C1 = "*-110°"
    Range("BO3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BQ:BQ").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BQ:BQ").Select
    ActiveSheet.Paste
   
    Range("BR1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BR2").Select
    ActiveCell.FormulaR1C1 = "*+120°"
    Range("BR3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BT:BT").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BT:BT").Select
    ActiveSheet.Paste
   
    Range("BU1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BU2").Select
    ActiveCell.FormulaR1C1 = "*-120°"
    Range("BU3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BW:BW").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BW:BW").Select
    ActiveSheet.Paste
   
    Range("BX1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BX2").Select
    ActiveCell.FormulaR1C1 = "*+130°"
    Range("BX3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BZ:BZ").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BZ:BZ").Select
    ActiveSheet.Paste
   
    Range("CA1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CA2").Select
    ActiveCell.FormulaR1C1 = "*-130°"
    Range("CA3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CC:CC").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CC:CC").Select
    ActiveSheet.Paste
   
    Range("CD1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CD2").Select
    ActiveCell.FormulaR1C1 = "*+140°"
    Range("CD3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CF:CF").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CF:CF").Select
    ActiveSheet.Paste
   
    Range("CG1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CG2").Select
    ActiveCell.FormulaR1C1 = "*-140°"
    Range("CG3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CI:CI").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CI:CI").Select
    ActiveSheet.Paste
   
    Range("CJ1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CJ2").Select
    ActiveCell.FormulaR1C1 = "*+150°"
    Range("CJ3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CL:CL").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CL:CL").Select
    ActiveSheet.Paste
   
    Range("CM1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CM2").Select
    ActiveCell.FormulaR1C1 = "*-150°"
    Range("CM3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CO:CO").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CO:CO").Select
    ActiveSheet.Paste
   
    Range("CP1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CP2").Select
    ActiveCell.FormulaR1C1 = "*+160°"
    Range("CP3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CR:CR").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CR:CR").Select
    ActiveSheet.Paste
   
    Range("CS1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CS2").Select
    ActiveCell.FormulaR1C1 = "*-160°"
    Range("CS3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CU:CU").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CU:CU").Select
    ActiveSheet.Paste
   
    Range("CV1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CV2").Select
    ActiveCell.FormulaR1C1 = "*+170°"
    Range("CV3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CX:CX").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CX:CX").Select
    ActiveSheet.Paste
   
    Range("CY1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CY2").Select
    ActiveCell.FormulaR1C1 = "*-170°"
    Range("CY3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("DA:DA").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("DA:DA").Select
    ActiveSheet.Paste
   
    Range("DB1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("DB2").Select
    ActiveCell.FormulaR1C1 = "*+180°"
    Range("DB3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("DD:DD").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("DD:DD").Select
    ActiveSheet.Paste
   
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
   
   
   
   
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim sht As Worksheet
   
    Columns("A:C").Select
    Selection.Copy
'    Sheets.Add After:=Sheets(Sheets.Count)
'    ActiveSheet.Paste
'    Sheets("Ark1").Select
'    Sheets("Ark1").Name = "+0"
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+0"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("D:F").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+10"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("G:I").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-10"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("J:L").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+20"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("M:O").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-20"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("P:R").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+30"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("S:U").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-30"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("V:X").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+40"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("Y:AA").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-40"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AB:AD").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+50"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AE:AG").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-50"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AH:AJ").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+60"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AK:AM").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-60"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AN:AP").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+70"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AQ:AS").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-70"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AT:AV").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+80"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AW:AY").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-80"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AZ:BB").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+90"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BC:BE").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-90"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BF:BH").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+100"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BI:BK").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-100"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BL:BN").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+110"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BO:BQ").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-110"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BR:BT").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+120"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BU:BW").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-120"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BX:BZ").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+130"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CA:CC").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-130"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CD:CF").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+140"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CG:CI").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-140"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CJ:CL").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+150"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CM:CO").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-150"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CP:CR").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+160"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CS:CU").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-160"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CV:CX").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+170"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CY:DA").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-170"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("DB:DD").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+180"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
   
   
   
   
   
   
   
   
   
    Sheets("SPL Horizontal").Select
    ActiveWindow.SelectedSheets.Visible = False
   
   
   
   
   
   
   
   
   
    Sheets("+0").Select
    With ActiveWorkbook.Sheets("+0").Tab
        .Color = 49407
        .TintAndShade = 0
    End With
   
    Sheets("+10").Select
    With ActiveWorkbook.Sheets("+10").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-10").Select
    With ActiveWorkbook.Sheets("-10").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+20").Select
    With ActiveWorkbook.Sheets("+20").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-20").Select
    With ActiveWorkbook.Sheets("-20").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+30").Select
    With ActiveWorkbook.Sheets("+30").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-30").Select
    With ActiveWorkbook.Sheets("-30").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+40").Select
    With ActiveWorkbook.Sheets("+40").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-40").Select
    With ActiveWorkbook.Sheets("-40").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+50").Select
    With ActiveWorkbook.Sheets("+50").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-50").Select
    With ActiveWorkbook.Sheets("-50").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+60").Select
    With ActiveWorkbook.Sheets("+60").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-60").Select
    With ActiveWorkbook.Sheets("-60").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+70").Select
    With ActiveWorkbook.Sheets("+70").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-70").Select
    With ActiveWorkbook.Sheets("-70").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+80").Select
    With ActiveWorkbook.Sheets("+80").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-80").Select
    With ActiveWorkbook.Sheets("-80").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+90").Select
    With ActiveWorkbook.Sheets("+90").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-90").Select
    With ActiveWorkbook.Sheets("-90").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+100").Select
    With ActiveWorkbook.Sheets("+100").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-100").Select
    With ActiveWorkbook.Sheets("-100").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+110").Select
    With ActiveWorkbook.Sheets("+110").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-110").Select
    With ActiveWorkbook.Sheets("-110").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+120").Select
    With ActiveWorkbook.Sheets("+120").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-120").Select
    With ActiveWorkbook.Sheets("-120").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+130").Select
    With ActiveWorkbook.Sheets("+130").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-130").Select
    With ActiveWorkbook.Sheets("-130").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+140").Select
    With ActiveWorkbook.Sheets("+140").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-140").Select
    With ActiveWorkbook.Sheets("-140").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+150").Select
    With ActiveWorkbook.Sheets("+150").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-150").Select
    With ActiveWorkbook.Sheets("-150").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+160").Select
    With ActiveWorkbook.Sheets("+160").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-160").Select
    With ActiveWorkbook.Sheets("-160").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+170").Select
    With ActiveWorkbook.Sheets("+170").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-170").Select
    With ActiveWorkbook.Sheets("-170").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+180").Select
    With ActiveWorkbook.Sheets("+180").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
       
   
    Sheets("+0").Select
   
   
   
   
   
   
   
   
   
   
   
    Sheets("+0").Select
    ChDir "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72"
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+0.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+0").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+10.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+10").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-10.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-10").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+20.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+20").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-20.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-20").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+30.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+30").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-30.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-30").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+40.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+40").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-40.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-40").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+50.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+50").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-50.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-50").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+60.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+60").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-60.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-60").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+70.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+70").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-70.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-70").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+80.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+80").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-80.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-80").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+90.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+90").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-90.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-90").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+100.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+100").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-100.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-100").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+110.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+110").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-110.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-110").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+120.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+120").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-120.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-120").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+130.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+130").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-130.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-130").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+140.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+140").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-140.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-140").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+150.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+150").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-150.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-150").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+160.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+160").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-160.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-160").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+170.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+170").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg-170.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-170").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72\ASR_Klippel_NFS_Hor_deg+180.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False


End Sub

 

[AnalogSteph]

Turns out the path thing was fairly easy after all (much easier than yesterday's ordeal, ironically). You just have to ChDrive to ThisWorkbook.Path and ChDir to the concatenated ThisWorkbook.Path & "\Steps_x72", then you can save with filenames relative to that directory (.\Filename.txt). Basically I just combined two tips found here. Yay for almost 12-year-old questions on the interwebs.

So now output text files will always be generated relative to Excel sheet path in the Steps_x72 subdirectory (as any sane human being would normally expect). Seems to work fine in paths with spaces, too.

Is the vertical spreadsheet using the same code, except for "SPL Vertical" instead of "SPL Horizontal" everywhere?

Sub ASR_Klippel_file_run()

    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "*On-Axis"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "Phase[Deg]"
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C4").Select
    Selection.Copy
   
    Range("C5:C203").Select
    ' standard format up to C184
   
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-27
    Range("D1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "*+10°"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("F:F").Select
    ActiveSheet.Paste
   
    Range("G1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "*-10°"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("I:I").Select
    ActiveSheet.Paste
   
    Range("J1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("J2").Select
    ActiveCell.FormulaR1C1 = "*+20°"
    Range("J3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("L:L").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("L:L").Select
    ActiveSheet.Paste
   
    Range("M1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "*-20°"
    Range("M3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("O:O").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("O:O").Select
    ActiveSheet.Paste
   
    Range("P1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "*+30°"
    Range("P3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("R:R").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("R:R").Select
    ActiveSheet.Paste
   
    Range("S1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("S2").Select
    ActiveCell.FormulaR1C1 = "*-30°"
    Range("S3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("U:U").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("U:U").Select
    ActiveSheet.Paste
   
    Range("V1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("V2").Select
    ActiveCell.FormulaR1C1 = "*+40°"
    Range("V3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("X:X").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("X:X").Select
    ActiveSheet.Paste
   
    Range("Y1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("Y2").Select
    ActiveCell.FormulaR1C1 = "*-40°"
    Range("Y3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AA:AA").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AA:AA").Select
    ActiveSheet.Paste
   
    Range("AB1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AB2").Select
    ActiveCell.FormulaR1C1 = "*+50°"
    Range("AB3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AD:AD").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AD:AD").Select
    ActiveSheet.Paste
   
    Range("AE1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AE2").Select
    ActiveCell.FormulaR1C1 = "*-50°"
    Range("AE3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AG:AG").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AG:AG").Select
    ActiveSheet.Paste
   
    Range("AH1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AH2").Select
    ActiveCell.FormulaR1C1 = "*+60°"
    Range("AH3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AJ:AJ").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AJ:AJ").Select
    ActiveSheet.Paste
   
    Range("AK1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AK2").Select
    ActiveCell.FormulaR1C1 = "*-60°"
    Range("AK3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AM:AM").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AM:AM").Select
    ActiveSheet.Paste
   
    Range("AN1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AN2").Select
    ActiveCell.FormulaR1C1 = "*+70°"
    Range("AN3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AP:AP").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AP:AP").Select
    ActiveSheet.Paste
   
    Range("AQ1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AQ2").Select
    ActiveCell.FormulaR1C1 = "*-70°"
    Range("AQ3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AS:AS").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AS:AS").Select
    ActiveSheet.Paste
   
    Range("AT1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AT2").Select
    ActiveCell.FormulaR1C1 = "*+80°"
    Range("AT3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AV:AV").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AV:AV").Select
    ActiveSheet.Paste
   
    Range("AW1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AW2").Select
    ActiveCell.FormulaR1C1 = "*-80°"
    Range("AW3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("AY:AY").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("AY:AY").Select
    ActiveSheet.Paste
   
    Range("AZ1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("AZ2").Select
    ActiveCell.FormulaR1C1 = "*+90°"
    Range("AZ3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BB:BB").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BB:BB").Select
    ActiveSheet.Paste
   
    Range("BC1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BC2").Select
    ActiveCell.FormulaR1C1 = "*-90°"
    Range("BC3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BE:BE").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BE:BE").Select
    ActiveSheet.Paste
   
    Range("BF1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BF2").Select
    ActiveCell.FormulaR1C1 = "*+100°"
    Range("BF3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BH:BH").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BH:BH").Select
    ActiveSheet.Paste
   
    Range("BI1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BI2").Select
    ActiveCell.FormulaR1C1 = "*-100°"
    Range("BI3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BK:BK").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BK:BK").Select
    ActiveSheet.Paste
   
    Range("BL1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BL2").Select
    ActiveCell.FormulaR1C1 = "*+110°"
    Range("BL3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BN:BN").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BN:BN").Select
    ActiveSheet.Paste
   
    Range("BO1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BO2").Select
    ActiveCell.FormulaR1C1 = "*-110°"
    Range("BO3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BQ:BQ").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BQ:BQ").Select
    ActiveSheet.Paste
   
    Range("BR1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BR2").Select
    ActiveCell.FormulaR1C1 = "*+120°"
    Range("BR3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BT:BT").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BT:BT").Select
    ActiveSheet.Paste
   
    Range("BU1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BU2").Select
    ActiveCell.FormulaR1C1 = "*-120°"
    Range("BU3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BW:BW").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BW:BW").Select
    ActiveSheet.Paste
   
    Range("BX1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("BX2").Select
    ActiveCell.FormulaR1C1 = "*+130°"
    Range("BX3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("BZ:BZ").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("BZ:BZ").Select
    ActiveSheet.Paste
   
    Range("CA1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CA2").Select
    ActiveCell.FormulaR1C1 = "*-130°"
    Range("CA3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CC:CC").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CC:CC").Select
    ActiveSheet.Paste
   
    Range("CD1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CD2").Select
    ActiveCell.FormulaR1C1 = "*+140°"
    Range("CD3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CF:CF").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CF:CF").Select
    ActiveSheet.Paste
   
    Range("CG1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CG2").Select
    ActiveCell.FormulaR1C1 = "*-140°"
    Range("CG3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CI:CI").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CI:CI").Select
    ActiveSheet.Paste
   
    Range("CJ1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CJ2").Select
    ActiveCell.FormulaR1C1 = "*+150°"
    Range("CJ3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CL:CL").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CL:CL").Select
    ActiveSheet.Paste
   
    Range("CM1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CM2").Select
    ActiveCell.FormulaR1C1 = "*-150°"
    Range("CM3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CO:CO").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CO:CO").Select
    ActiveSheet.Paste
   
    Range("CP1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CP2").Select
    ActiveCell.FormulaR1C1 = "*+160°"
    Range("CP3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CR:CR").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CR:CR").Select
    ActiveSheet.Paste
   
    Range("CS1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CS2").Select
    ActiveCell.FormulaR1C1 = "*-160°"
    Range("CS3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CU:CU").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CU:CU").Select
    ActiveSheet.Paste
   
    Range("CV1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CV2").Select
    ActiveCell.FormulaR1C1 = "*+170°"
    Range("CV3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("CX:CX").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("CX:CX").Select
    ActiveSheet.Paste
   
    Range("CY1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("CY2").Select
    ActiveCell.FormulaR1C1 = "*-170°"
    Range("CY3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("DA:DA").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("DA:DA").Select
    ActiveSheet.Paste
   
    Range("DB1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("DB2").Select
    ActiveCell.FormulaR1C1 = "*+180°"
    Range("DB3").Select
    ActiveCell.FormulaR1C1 = "*Frequency [Hz]"
    Columns("DD:DD").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").Select
    Selection.Copy
    Columns("DD:DD").Select
    ActiveSheet.Paste
   
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
   
   
   
   
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim sht As Worksheet
   
    Columns("A:C").Select
    Selection.Copy
'    Sheets.Add After:=Sheets(Sheets.Count)
'    ActiveSheet.Paste
'    Sheets("Ark1").Select
'    Sheets("Ark1").Name = "+0"
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+0"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("D:F").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+10"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("G:I").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-10"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("J:L").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+20"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("M:O").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-20"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("P:R").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+30"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("S:U").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-30"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("V:X").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+40"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("Y:AA").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-40"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AB:AD").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+50"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AE:AG").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-50"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AH:AJ").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+60"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AK:AM").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-60"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AN:AP").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+70"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AQ:AS").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-70"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AT:AV").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+80"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AW:AY").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-80"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("AZ:BB").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+90"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BC:BE").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-90"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BF:BH").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+100"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BI:BK").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-100"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BL:BN").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+110"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BO:BQ").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-110"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BR:BT").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+120"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BU:BW").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-120"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("BX:BZ").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+130"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CA:CC").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-130"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CD:CF").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+140"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CG:CI").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-140"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CJ:CL").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+150"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CM:CO").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-150"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CP:CR").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+160"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CS:CU").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-160"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CV:CX").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+170"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("CY:DA").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "-170"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
    Columns("DB:DD").Select
    Selection.Copy
    Set sht = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    ActiveSheet.Paste
    sht.Select
    sht.Name = "+180"
    Sheets("SPL Horizontal").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "*SPL Horizontal"
    Range("A1").Select
   
   
   
   
   
   
   
   
   
   
    Sheets("SPL Horizontal").Select
    ActiveWindow.SelectedSheets.Visible = False
   
   
   
   
   
   
   
   
   
    Sheets("+0").Select
    With ActiveWorkbook.Sheets("+0").Tab
        .Color = 49407
        .TintAndShade = 0
    End With
   
    Sheets("+10").Select
    With ActiveWorkbook.Sheets("+10").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-10").Select
    With ActiveWorkbook.Sheets("-10").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+20").Select
    With ActiveWorkbook.Sheets("+20").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-20").Select
    With ActiveWorkbook.Sheets("-20").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+30").Select
    With ActiveWorkbook.Sheets("+30").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-30").Select
    With ActiveWorkbook.Sheets("-30").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+40").Select
    With ActiveWorkbook.Sheets("+40").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-40").Select
    With ActiveWorkbook.Sheets("-40").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+50").Select
    With ActiveWorkbook.Sheets("+50").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-50").Select
    With ActiveWorkbook.Sheets("-50").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+60").Select
    With ActiveWorkbook.Sheets("+60").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-60").Select
    With ActiveWorkbook.Sheets("-60").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+70").Select
    With ActiveWorkbook.Sheets("+70").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-70").Select
    With ActiveWorkbook.Sheets("-70").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+80").Select
    With ActiveWorkbook.Sheets("+80").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-80").Select
    With ActiveWorkbook.Sheets("-80").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+90").Select
    With ActiveWorkbook.Sheets("+90").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-90").Select
    With ActiveWorkbook.Sheets("-90").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+100").Select
    With ActiveWorkbook.Sheets("+100").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-100").Select
    With ActiveWorkbook.Sheets("-100").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+110").Select
    With ActiveWorkbook.Sheets("+110").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-110").Select
    With ActiveWorkbook.Sheets("-110").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+120").Select
    With ActiveWorkbook.Sheets("+120").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-120").Select
    With ActiveWorkbook.Sheets("-120").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+130").Select
    With ActiveWorkbook.Sheets("+130").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-130").Select
    With ActiveWorkbook.Sheets("-130").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+140").Select
    With ActiveWorkbook.Sheets("+140").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-140").Select
    With ActiveWorkbook.Sheets("-140").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+150").Select
    With ActiveWorkbook.Sheets("+150").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-150").Select
    With ActiveWorkbook.Sheets("-150").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+160").Select
    With ActiveWorkbook.Sheets("+160").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-160").Select
    With ActiveWorkbook.Sheets("-160").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+170").Select
    With ActiveWorkbook.Sheets("+170").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
    Sheets("-170").Select
    With ActiveWorkbook.Sheets("-170").Tab
        .Color = 15773696
        .TintAndShade = 0
    End With
   
    Sheets("+180").Select
    With ActiveWorkbook.Sheets("+180").Tab
        .Color = 255
        .TintAndShade = 0
    End With
   
       
   
    'Sheets("+0").Select
   
   
   
   
   
   
   
   
   
    ChDrive ThisWorkbook.Path
    ChDir ThisWorkbook.Path & "\Steps_x72"
   
    Sheets("+0").Select
    'ChDir "D:\ASR_txt_files_convert_to_VituixCAD\Steps_x72"
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+0.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+0").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+10.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+10").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-10.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-10").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+20.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+20").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-20.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-20").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+30.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+30").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-30.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-30").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+40.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+40").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-40.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-40").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+50.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+50").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-50.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-50").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+60.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+60").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-60.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-60").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+70.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+70").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-70.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-70").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+80.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+80").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-80.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-80").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+90.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+90").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-90.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-90").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+100.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+100").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-100.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-100").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+110.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+110").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-110.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-110").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+120.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+120").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-120.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-120").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+130.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+130").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-130.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-130").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+140.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+140").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-140.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-140").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+150.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+150").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-150.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-150").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+160.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+160").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-160.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-160").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+170.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("+170").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg-170.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    Sheets("-170").Select
    ActiveWindow.SelectedSheets.Visible = False
   
        ActiveWorkbook.SaveAs Filename:= _
        ".\ASR_Klippel_NFS_Hor_deg+180.txt" _
        , FileFormat:=xlTextMSDOS, CreateBackup:=False
    
    ChDir ThisWorkbook.Path

End Sub