Sub loadRiedel()
'
' loadRiedel Macro
' Macro recorded 12/18/2013 by Pete Erskine
'
' Note: save a copy of file first
' on ports screen, first order screen by ports column.
' Order will change when you rename anything in columns 1 or 2
' Copy Riedel "Copy Grid contentsd to clipboard" by right click on ports screen
' paste file on desktop named temp.text
' run this macro
' edit columns 1 and 2 as needed
' copy each column and paste back into roedel one column at a time
' laste 'long names' for column A
' paste 'local labels' for 8 char names
'
'
    Workbooks.OpenText Filename:="\\psf\Home\Desktop\temp.txt", Origin:=437, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
        Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
        3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10 _
        , 1), Array(11, 1), Array(12, 1)), TrailingMinusNumbers:=True
    Range("A1:A3").Select
    Selection.EntireRow.Delete
    Cells.Select
    Selection.Columns.AutoFit
    Range("A2").Select
End Sub
Sub remove_TTI_Comments()
'
' remove_comments Macro
' Macro recorded 12/18/2014 by Pete
' Copy and paste all of your separate CSV files imported from TTI into one file
' then open that file in excel and run this macro to remove all
' comments which will make it WWB6 compatible
'
    Dim lastrow As Range
    Dim last As Integer
    Application.ScreenUpdating = False
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Set lastrow = ActiveSheet.Cells.Find("Auto RBW*")
    last = lastrow.Row
    ActiveSheet.Range(Rows(last), Rows(last + 100)).Select
    Selection.Delete
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub
Sub Import_IAS()
'
' Import_IAS Macro
' Beta testing importing IAS data from Safari print preview from IAS 4.8.8.0 - BRad
' with a few mods by Pete Erskine
‘ added search for Freq col too


'   Variable Declaration
    Dim lastrow As Range ' Variable for finding what row the first line of the footer is in
    Dim last As Integer ' Variable for holding the row of variable lastrow
    Dim i As Integer ' Variable for empty TV cells loop
    Dim firstrow As Range ' Vairbale for finding the first row of frequencies
    Dim first As Integer ' variable for holding the row of variable firstrow
    Dim freq As Integer  'Variable to find what Column Freqs are in
    Dim freqcol As Range  ' Column for freqs
    
    Application.ScreenUpdating = False
   
 '  clear all
    Cells.Select
    Selection.Clear
    
'   Pasting clipboard
    Range("A1").Select
    ActiveSheet.Paste
   
'   Finds and sets the variables for the first line of the footer
    Set lastrow = ActiveSheet.Cells.Find("Items printed*")
    last = lastrow.Row
   
'   Finds and sets the variables for the first frequency line
    Set firstrow = ActiveSheet.Cells.Find("sorted by*")
    first = firstrow.Row
    
'   Finds frequency column
    Set freqcol = ActiveSheet.Cells.Find("Zone*")
    freq = freqcol.Column - 2
       
'   Removes footer
    ActiveSheet.Range(Rows(last), Rows(last + 20)).Select
    Selection.Delete
   
'   Removes header and leaves Show Name & No of Freq (for confirmation)
    ActiveSheet.Range(Rows(1), Rows(first)).Select
    Selection.Delete
   
   Range(Cells(1, freq), Cells(last, freq)).Select
   
   
'   Selects the freq list and formats it a little
    Range(Cells(1, freq), Cells(last, freq)).NumberFormat = "0.000"
    Range(Cells(1, 1), Cells(last, 8)).Select
      With Selection
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection.Font
        .Name = "Times New Roman"
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Columns.AutoFit
   
'   Sort by name column
    Range(Cells(2, 1), Cells(last, 8)).Select
    
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("F2") _
        , Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
        Range("A1").Select
    Application.ScreenUpdating = True
End Sub