nateblake
05-11-2015, 06:35 AM
I am trying to get the following code to copy all unique string values in in column I of worksheet 5, and copy those unique values to Column A, row 2 of worksheet 3, then unwrap the text. Does anyone know why I get a subscript out of range error??
Sub PrintPartsServices()
Workbooks("Logical_Analysis").Worksheets("Sheet5").Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Workbooks("Logical_Analysis").Worksheets("Sheet3").Range("A2"), Unique:=True
Workbooks("Logical_Analysis").Worksheets("Sheet3").Range("A20000:A2").WrapText = False
End Sub
Sub PrintPartsServices()
Workbooks("Logical_Analysis").Worksheets("Sheet5").Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Workbooks("Logical_Analysis").Worksheets("Sheet3").Range("A2"), Unique:=True
Workbooks("Logical_Analysis").Worksheets("Sheet3").Range("A20000:A2").WrapText = False
End Sub