Set WBMax = thisworkbook.worksheets("max")
Set WBSheet = thisworkbook.worsheets("sheet")
If WBMax.Cells(1,3).Value = WBMSheet.Cells(1,2).Value Then
WBMax.Cells(3,3).Value = WBMSheet.Cells(3,2).Value
WBMax.Cells(3,3).Interior.Color = RBG(1,1,1)