I have a sub that looks like the one below but it gives me an error when I try to run it, it compiles fine and I cannot seem to know whats wrong

sub FindMax(

Dim VarMaxVal As Varian
VarMaxVal =
Dim myRange As Rang

Set myRange = Worksheets("Sheet1").Range("T7:T64"
VarMaxVal= Application.WorksheetFunction.Max(myRange

End Sub