error 1004 select method of range class failed

[Lee_wwfc]

Hi my code is not working but looks correct please have a look, I have debugged it and put the bit which it told me to correct in green below:

Dim friCost As Range
Dim friPrice As Variant
Dim totalFriPrice As Currency

Range("A1").Select

x = ActiveCell.CurrentRegion.Rows.Count 'This uses x to locate the active cell

Set friCost = Worksheets("Bookings").Range("A2:A" & x) 'This sets the range


For Each friPrice In friCost

    
    If friPrice = "Friday 4th October" Then
    
       friPrice.Select
        totalFriPrice = totalFriPrice + ActiveCell.Offset(0, 3).Value
    
    End If
        
        
Next
        
MsgBox ("Friday Income = £" & totalFriPrice)