PClive: thanks that did the trick. Simple mistake!

"PCLIVE" wrote:

Try this:

Set rrrRng = Sheets("Sheet1").Range("A2:A6")

HTH,
Paul

--

"Mathew" wrote in message
...
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.