Nothing happens when running a macro

[Marceltcm]

Hi everyone,

When I run the following macro, nothing happens, wonder if someone could help me out. Tnx!

Private Sub teste()

Workbooks.Open ("C:\Users\Marcel\Desktop\pasta1")
Sheets(1).Activate

For i = 1 To 10
    If Cells(i, 1).Value = 12 Then
    a = Cells(i, 2).Value
    b = Cells(i, 3).Value
    c = Cells(i, 4).Value
    d = Cells(i, 5).Value
    e = Cells(i, 6).Value
    f = Cells(i, 7).Value
    g = Cells(i, 8).Value
    MsgBox (a & b & c & d & e & f & g)
    End If
Next i

End Sub