Error: Type mismatch
You need the value of shortest in the Select, not just a string.
Instead of:
Rows("shortest:shortest").Select
use:
Rows(shortest & ":" & shortest).Select
--
Gary''s Student - gsnu200772
" wrote:
i have a vba code included the following:
shortest = count(1)
For r = 1 To 200
If count(r) < shortest And count(r) 0 Then
shortest = count(r)
End If
Next
Rows("shortest:shortest").Select
Selection.Cut
Rows("1:1").Select
Selection.Insert Shift:=xlDown
However, when i try to run the code, the debugger promt an error
message said : type mismatch and then highlight the code:
Rows("shortest:shortest").select.
I declared "shortest" as variant.
Can any pro point out my mistake?Thank you very much
|