Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
type mismatch error
Im getting a type mismatch error on this code and im not sure why.
Im getting the error on the "Set AllCells" line. Sub RemoveDuplicates() Dim AllCells As Range, Cell As Range Dim NoDupes As New Collection Set AllCells = Sheet1.Range("H2:H1000") And Sheet5.Range("D2:D1000") On Error Resume Next For Each Cell In AllCells NoDupes.Add Cell.Value, CStr(Cell.Value) Next Cell On Error GoTo 0 For Each Value In NoDupes On Error Resume Next UserForm3.ListBox1.AddItem Value Next Value UserForm3.Show End Sub Thanks! Alex |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Visual Basic Error Run Time Error, Type Mismatch | Excel Discussion (Misc queries) | |||
runtime error 13 - type mismatch error in Excel 97 on Citrix | Excel Programming | |||
Conditional Formatting - Run Time Error '13' Type Mismatch Error | Excel Programming | |||
Help: Compile error: type mismatch: array or user defined type expected | Excel Programming | |||
Befuddled with For Next Loop ------ Run - Time Error '13' Type Mismatch Error | Excel Programming |