Error 13 type mis match windows only.

[adamprocter]

Code works fine on my mac however it has started failing on windows macs with a type mis match pointing to this line

  If Sheets("Dashboard").Range("I3") < Sheets("Dashboard").Cells(lNextRow, "M") Then

INextRow is declared as a Long and is used in lines before this one so I am a little lost and also have less access to windows machines so I am finding it hard to debug ?
Any ideas ?

Here is some more code around it

    'Dashboard population script follows
Dim ws As Worksheet
Dim sName As String
Dim Value As String
Dim lLastRow As Long
Dim lNextRow As Long
Dim rcMatch As Variant

Application.ScreenUpdating = False

....

Set MyRange = Sheets("Dashboard").Range("H6:I" & ILastRow)
For Each c In MyRange

Select Case True
                Case c.Value = "One"

               'if BEP is above current BEP green
             If Sheets("Dashboard").Range("I3") < Sheets("Dashboard").Cells(lNextRow, "M") Then
          
                    
                          Sheets("Dashboard").Cells(lNextRow, "I").Copy
                    Sheets("Dashboard").Cells(lNextRow, "AS").PasteSpecial Paste:=xlPasteValues
                                             
                        Else
                         Sheets("Dashboard").Cells(lNextRow, "AS").ClearContents
                         
                          Sheets("Dashboard").Cells(lNextRow, "I").Copy
                    Sheets("Dashboard").Cells(lNextRow, "AT").PasteSpecial Paste:=xlPasteValues
                            
             End If

  Case c.Value = "Two"

....

 

[MARK858]

When it errors what is the value of lNextRow when you hover your mouse over it?

 

[adamprocter]

It reports

INextRow = 97

 

[RoryA]

Most likely cause is that one of those cells has an error in it.

 

[adamprocter]

When I look at row 97 the columns are not completed correctly. from Column L

 

[adamprocter]

the cells are being generated from sheets so I will remove that sheet and try again