Subscript out of range error for cell ref

[Reset]

I am getting A subscript out of range error when I change a cell column reference from a 2 to a 9. It is actually anything greater than 4 will set it off. Can anyone see the issue?

Private Sub Workbook_Open()
c = Sheets.Count
For Z = 1 To c
If Sheets(Z).Name = "Sheet1" Then GoTo line1
If Sheets(Z).Name = "dat" Then GoTo line1
Sheets(Z).Select
a = Application.WorksheetFunction.CountA(Columns(1))
b = Application.WorksheetFunction.CountA(Columns(2))

If a - b < 1 Then GoTo line1
ReDim q(a - b) As Integer
inc = 0
For x = 2 To a
If Cells(x, 9) = "" Then q(inc) = Cells(x, 1): inc = inc + 1
'error at above line
Next x
Sheets("dat").Select
v = Application.WorksheetFunction.CountA(Columns(1))
For y = 1 To inc
Cells(v + y, 1) = q(y - 1)
Cells(v + y, 2) = Sheets(Z).Name
Next y

line1: 'jump out
Next Z
Sheets("dat").Select
v = Application.WorksheetFunction.CountA(Columns(1))
For x = 1 To v
Cells(x, 3) = Cells(x, 2) & ", " & Cells(x, 1)
Next x
End Sub

 

[kpark91]

It'd be nice if you could show us which line errors.

and please use code tags with proper indentation. Makes it easier to answer.

Edit: I found where it errors. Didn't realize you had a little comment in there saying error.
Hard to see without any indentations xD

 

[kpark91]

a = Application.WorksheetFunction.CountA(Columns(1))
b = Application.WorksheetFunction.CountA(Columns(2))

I'm guessing you're trying to get the last row in column A and column B?
If not, you would need to explain what the code does and what the sample worksheet looks like.

 

[Reset]

My apologies all around. I have no idea how to use code tags. However, I did find the error (although I don't know why it causes it). If I change the second CountA to the column in the IF statement in the loop it works.

but while we are on the subject, how do I use code tags? I would certainly like to post more legibly. Thanks for your response.