I'm trying to get this program done to make work go faster, but since I've givin up and am going to bed right now, I'm going to post it and see if anyone can point out my mistake.

Private Sub CommandButton1_Click()
i = 1
j = 1
k = 1
l = 1
Do While i <= 65536
    Do While l <= 65536
    If Sheet1.Cells(i, j).Value = 0 Then
    ElseIf Sheet1.Cells(i, j).Value = (Left(Sheet2.Cells(l, 1), 4) & Right(Sheet2.Cells(l, 1), 4)) * 1 Then
        Sheet3.Cells(k, 1).Value = Sheet1.Cells(i, j).Value
        k = k + 1
        l = l + 1
    Else
        l = l + 1
    End If
    Loop
    If i >= 65536 And j = 1 Then
    i = 1
    j = 2
    ElseIf i >= 65536 And j = 2 Then
    ElseIf i < 65536 Then
    i = i + 1
    End If
Loop
End Sub
The highlighted line gives me a Type Mismatch error.

I wonder if the value in Sheet1 is coming out as a string? In that case, you could either multiply that by 1, or see if you could take the *1 off the second part.

Hope that helps,

Mike

Mike
EchoVue.com