This is the top part of a macro. When it gets to the

Dim rrrRng As Range
Dim lowScore As Long
Dim playerName As String

Set rrrRng = Sheet1("A2:A6")

When it gets to this line: Set rrrRng = Sheet1("A2:A6")

I get "Run Time Error 438" Any help would be appreciated.