VBA RemoveDuplicatesが動かない

以下のマクロを実行しても動きません。
RemoveDuplicatesの行でエラーとなります。
メッセージ：アプリケーション定義またはオブジェクト定義のエラーです。
何が間違ってるのでしょう？

エクセル2013
Windows8

E列の重複を削除するマクロです。不要なWithを使っているのは、別マクロから切り出したものだからです。

Sub test()

Dim Colref As Long, LastRow As Long

With Worksheets("Sheet1")
Colref = 5
LastRow = Cells(Rows.Count, Colref).End(xlUp).Row
Range(.Cells(1, Colref), .Cells(LastRow, Colref)).RemoveDuplicates Columns:=CVar(Colref), Header:=xlNo

End With

End Sub

No.1 ベストアンサー 回答者： kkkkkm 回答日時： 2014/10/25 09:50

> Range(.Cells(1, Colref), .Cells(LastRow, Colref)).RemoveDuplicates Columns:=CVar(Colref), Header:=xlNo

1列しか選択範囲してないのにそれの5列目を指定してるのでエラーになっています。
Columns:=は選択範囲の何列目かを指定しますから今回の場合はColumns:=1になります。

この回答へのお礼

ありがとうございます。
解決しました。

お礼日時：2014/10/25 14:41