The Syntax is If...Then

Your line is split. Either joint it with the " _" (space-underscore)
compiler directive, or move the following line up to read

If Left(myVal,2) = "F" Then Worksheets(i).Select


In article ,
Catherine wrote:

Hi gang!
Here's my code
Sub summary2()

Application.ScreenUpdating = True
Dim i As Integer
Dim myVal As String
On Error Resume Next
Application.DisplayAlerts = False
Worksheets("Summary").Delete
Application.DisplayAlerts = True
Worksheets.Add(Worksheets(1)).Name = "Summary"
For i = Worksheets("Start").Index + 1 To Worksheets("End").Index - 1
myVal = Worksheets(i).Range("P13").Text
If Left(myVal,2) = "F"
Then Worksheets(i).Select
Range("P10:p38").Copy
Worksheets("Summary").Select
Range("IV1").End(xlToLeft)(1, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
'End If
Next i

Im getting a syntax error on ....If Left(myVal,2) = "F"
Wheres the bug?

Thanks!