Help - error with code :(

[BDexcel]

Could someone help me please? I'va been using the below code for a few weeks to compare 2 sheets in a workbook and highlight any changes in the 2nd tab yellow. However today it wont work and is giving me a bug for the line ' mydiffs = mydiffs + 1 '. Can anyone help me understand why its not working now?

Sub RunCompare()

Call compareSheets("Existing", "New")

End Sub


Sub compareSheets(shtSheet1 As String, shtSheet2 As String)

Dim mycell As Range
Dim mydiffs As Integer

'For each cell in sheet2 that is not the same in Sheet1, color it yellow
For Each mycell In ActiveWorkbook.Worksheets(shtSheet2).UsedRange
If Not mycell.Value = ActiveWorkbook.Worksheets(shtSheet1).Cells(mycell.Row, mycell.Column).Value Then

mycell.Interior.Color = vbYellow
mydiffs = mydiffs + 1

End If
Next

'Display a message box to demonstrate the differences
MsgBox mydiffs & " differences found", vbInformation

ActiveWorkbook.Sheets(shtSheet2).Select

End Sub

 

[Fluff]

Try making this change

Dim mydiffs As Long

 

[BDexcel]

Thanks Fluff, where do i add that into my code?

 

[Fluff]

You don't need to add that line, you just need to change your existing dim statement.