dim not working on multiple ranges

You use Set with Objects

Sub sbTestRanges()
Dim a, b, c As Range
 Set   a = Cells(1, 1)
 Set   b = Cells(1, 1)
 Set   c = Cells(1, 1)
End Sub

I have added Code Tags in your post