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)

[Norie]

Do you actually need that line?

Instead of using ActiveCell in the next line use friPrice.

PS Please edit your post to add code tags.

[Lee_wwfc]

Thankyou soo much it has worked
Lee

[Norie]

This should work as long as you have numeric data in column D.

Dim friCost As Range
Dim friPrice As Range
Dim totalFriPrice As Currency
Dim x As Long


    x = Range("A1").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.Value = "Friday 4th October" Then

            totalFriPrice = totalFriPrice + friPrice.Offset(0, 3).Value

        End If

    Next

    MsgBox ("Friday Income = £" & totalFriPrice)

[Lee_wwfc]

Thankyou it has worked and you have fixed my system haha thankyou :D

[Lee_wwfc]

Hi i wonder if you also know how to do this below : :D

I am making a seating plan which first you have to select a row A-L then you need to select
a seat but there are different numbers of seats within the rows so when i book a seat in row A
and select seat 20 it comes up as an error as it doesn't exist but how do i enable a message box to appear instead
saying 'sorry this seat does not exist' If you know how to do this please would you tell me.
Thankyou :D