delete duplicate data in the same column

[mali10020]

Good morning!!

Can you please help!!

I wrote this code but I keep geting error

I want to assign this code to pacific sheet the sheet name is Devices names.

Sub Final2()
'
' Final Macro
'

'
Workbooks("Mobile devices report").Worksheets("Devices list").Range("A1:A10000").Replace ".mcd.pri", "", LookAt:=xlPart

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 9), Array(3, 9), Array(4, 9), Array(5, 9), Array(6, 9), _
Array(7, 9), Array(8, 9), Array(9, 9), Array(10, 9), Array(11, 9), Array(12, 9)), _
TrailingMinusNumbers:=True
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False



End Sub

Thank you!

 

[Logit]

the sheet name is Devices names

Workbooks("Mobile devices report").Worksheets("Devices list").Range("A1:A1

 

[mali10020]

Workbooks("Mobile devices report").Worksheets("Devices list").Range("A1:A1

I already fixed the name of the sheet but still not working I'm getting the same error

Workbooks("Mobile devices report").Worksheets("Devices list").Range("A1:A10000").Replace ".mcd.pri", "", LookAt:=xlPart

 

[Logit]

Post your workbook on a download site so it can be reviewed. Do not include any confidential data.

Post the download link.