Sub MatchingSegmentSearch() ' MatchingSegmentSearch Macro ' Paste and save GEDmatch Matching Segment Search results copied from TextPad to clipboard. Workbooks.Add ActiveSheet.Paste Cells.Find(What:="Kit ", LookAt:=xlWhole).Activate ActiveCell.Offset(1, 0).Select ActiveWindow.FreezePanes = True ActiveCell.Offset(-1, 0).Select Range(ActiveCell, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Columns.AutoFit ActiveCell.Offset(1, 4).Select Range(Selection, Selection.End(xlDown)).Select Selection.NumberFormat = "0.0" ActiveCell.Offset(-1, 5).Select ActiveCell.FormulaR1C1 = "Notes" Selection.ColumnWidth = 63 Selection.End(xlToLeft).Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.AutoFilter Columns("J:J").Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1).Select Selection.Columns.AutoFit ChDir "C:\pwaldron\GENEALOG\Genetics\Spreadsheets" End Sub