Can`t seem to get my code to recognize my SpreadSheet

[Darren Smith]

Problem is the worksheet for some reason will not work. It says ws = Nothing?? I have set it up same as before baffled.
I tried to set a workbook variable Then using Thisworkbook.Sheets still no luck.
Don`t Know of any other way it could or should work

Private Sub Add_Break_Lines_Click()

                              
                Dim Com As ComboBox
                Dim ws As Worksheet
                Dim wb As Workbook
                
                
                Set wb = Workbooks("Automated Cardworker")
                Set ws = wb.Worksheets("Job Card Master")
                Set Com = Me.Add_Break_Lines
                

            
               With ws
               
                Select Case Com.Value
                    Case ("Break Lines 1 Page Job Card")
                        Color .Range("A13:Q61")
            
                    Case ("Break Lines 2 Page Job Card")
                        Color .Range("A13:Q61")
                        Color .Range("A66:Q120")
               
                    Case ("Break Lines 3 Page Job Card")
                         Color .Range("A13:Q61")
                        Color .Range("A66:Q122")
                        Color .Range("A127:Q178")
                        
                    Case ("Break Lines 4 Page Job Card")
                        Color .Range("A13:Q61")
                        Color .Range("A66:Q122")
                        Color .Range("A127:Q183")
                        Color .Range("A188:Q244")
            
                    Case ("Break Lines 5 Page Job Card")
                        Color .Range("A13:Q61")
                        Color .Range("A66:Q122")
                        Color .Range("A127:Q183")
                        Color .Range("A188:Q244")
                        Color .Range("A249:Q299")
                End Select
                
            End With

            End Sub

 

[jasonb75]

No, that code just calls the color routine based on the combo box choice, there will be more code somewhere.

 

[Darren Smith]

Sorry I understand here is the function that fills the color

Function Color(rng As Range)

Dim row As Range
Dim EmptyRowNum As Integer


For i = 1 To rng.Rows.Count

    Set row = rng.Rows(i)
    If WorksheetFunction.CountA(row) = 0 Then
        EmptyRowNum = EmptyRowNum + 1
    End If
    If EmptyRowNum = 2 Then
        EmptyRowNum = 0
        row.Interior.ColorIndex = 4
    End If

Next i

End Function

 

[RoryA]

Are there blank rows in the ranges you are referring to?

 

[Darren Smith]

Are there blank rows in the ranges you are referring to?

Yes that`s right

 

[RoryA]

There is nothing there that would cause the code to stop abruptly. Put a break point at the start of your original code, then select "Break Lines 1 Page Job Card" from the dropdown and then step through the code to see what is happening.

 

[Darren Smith]

I`ve stepped through the code after putting a breakpoint.
It seems to run but no color filled into the sheet rows??

 

[RoryA]

Did it actually run this line:

row.Interior.ColorIndex = 4

 

[Darren Smith]

Sorry it seems to miss that line?

 

[Darren Smith]

Also EmptyRowNum in the function says 0 is this wrong.

 

[RoryA]

If it's not running that line, then that's why you aren't seeing any colours. Does it run the line before it?