Perform Code is Cell is not Null (Getting an Error)

[gheyman]

The Code doesn't like: If Sheets("TRAVEL INFORMATION").Cells(p, 3).Value <> """"
I want it to create a tab if that cell is not null. Not sure why it doesn't like this

Sub CreateTripTab()
'
    Dim p As Integer
    Dim LastRow As Long
'
        With Sheets("TRAVEL INFORMATION")
            LastRow = .Cells(.Rows.Count, 3).End(xlUp).Row
        End With
'
    Sheets("TRIP_TEMP").Visible = True
'
    For p = 4 To LastRow
'
    If Sheets("TRAVEL INFORMATION").Cells(p, 3).Value <> """"
        Sheets("TRIP_TEMP").Activate
        Sheets("TRIP_TEMP").Copy After:=Worksheets(Worksheets.Count)
        ActiveSheet.Cells(2, 2).Value = Sheets("TRAVEL INFORMATION").Cells(p, 3).Value
'
        Name_Tab
'
        Else
'
    End If
'
    Next p
'
    Calculate
    Sheets("TRAVEL INFORMATION").Select
'
End Sub

 

[Fluff]

Remove 2 of the quotes, it should only be <>""

 

[gheyman]

I tried that and it doesn't like it. The code turns red

 

[gheyman]

My bad. Missing the "Then"