Runtime error '9'

[Radsy]

Hi everyone. New to the forum and excel. I am having problems with runtime error '9' subscript out of range. The sheet is used to organize horse racing ratings for the day. I did not create this and it was working for the past week. Then I tried to run it this morning and kept coming up with the runtime error. Any help would be appreciated.

End If
End If
If Right(Sheets("Horse").Cells(A, B), 2) = "am" Then
Sheets("Horse").Cells(A, B) = Left(Cells(A, B), Len(Sheets("Horse").Cells(A, B)) - 2)
End If
If Right(Sheets("Horse").Cells(A, B), 3) = "am " Then
Sheets("Horse").Cells(A, B) = Left(Cells(A, B), Len(Sheets("Horse").Cells(A, B)) - 3)
End If
If Sheets("Horse").Cells(A, B) <> vbNullString Then
Races(C) = Sheets("Horse").Cells(A, 1) & Sheets("Horse").Cells(X - 1, B).Text
Time(C) = Sheets("Horse").Cells(A, B)
C = C + 1

 

[Radsy]

I'll correct this and use the converter so its easier to read.

 

[Tom Urtis]

To me, this range reference looks wierd:

Cells(A, B)

Maybe you mean something else unlesss those are variables, which if so are the last variables you'd want to set for ranges with column letters confusingly looking like those.

Maybe also your sheet named Horse is really named "Horse " or " Horse" with an invisible and seemingly non-existent spacebar character but which would mean something different to VBA than "Horse".

I bet it's the cell ref though...looks fishy. aybe you want Cells("A", 1) or Cells(1, "A").