Type mismatch error
Dim lr As Integer
lr = Range("A1").CurrentRegion.Rows.Count
Range("N2").Select
Range("N2").Formula = Application.WorksheetFunction.Index(Sheets("SMSv2").Range("A2:L" & lr), Application.Match(Sheets("SMSv2").Range("C2"), Sheets("SMSv2").Range("A2:A" & lr), False), 4)
See Question&Answers more detail:
os 与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…