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 · ベストアンサー

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

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

お礼

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