Highligt row of active cell, error in macro

[nordicdust]

I can't get this to work??
I want ActiveWindow.ScrollRow to scroll down to the row = the RowNum

Can someone crack this for me please.

' Go to data sheet and select Todays date and Highlight Row

Public Sub GoData()
Dim RowNum As Integer
ThisWorkBook.Worksheets("DATA").Select

Call UnProtectSheets(GetMasterPassword(), "DATA")

RowNum = ThisWorkBook.Worksheets("ENGINE").Range("D9").Value ' today - startdate = number

'Scroll down to today
ActiveWindow.ScrollRow = RowNum

'Settings
ActiveSheet.UsedRange.Font.Bold = False
ActiveCell.EntireRow.Font.Bold = True
ActiveCell(-6).EntireRow.Font.Bold = True

'Clear previous color settings
ActiveSheet.Range("D8:CW1000").Interior.ColorIndex = 0
ActiveCell.EntireRow.Columns("D:CW").Interior.ColorIndex = 4 ' Today
ActiveCell(-6).EntireRow.Columns("D:CW").Interior.ColorIndex = 27 ' Last Week

Call ProtectSheets(GetMasterPassword(), "DATA")

End Sub