[fiiish]

The "cool kids" are able to code to run Excel VBA macros "outside" of Excel through VBS script:

With CreateObject("Excel.Application")
.EnableEvents = False
.DisplayAlerts = False
.Workbooks.Open "C:\Test.csv"
With .ActiveSheet
' 1 = xlAscending, 0 = xlNo (Header)
.Range("A:C").Sort .Range("C1"), 1, .Range("B1"), , 1, .Range("A1"), , , 1, 0
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close False
End With

I would like to be able to do the same with the following or similar code:

Option Explicit
Sub DeleteDups()
Dim x As Long
Dim LastRow As Long
LastRow = Range("A65536").End(xlUp).Row
For x = LastRow To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1 Then
Range("A" & x).EntireRow.Delete
End If
Next x
End Sub

Is this possible with this kind of function? I have tried, obviously with no luck, and my skills are minimal.

Many thanks in advance

fiiish

Edited by fiiish, 05 April 2011 - 04:58 AM.