examples

Sub Test()
Range("B1:B3").Value = 1
Range("C:C").Value = 3
Range("D3:F5").Value = 4
Range("B4:C6,G4:G7,J4:K6").Value = 5
Range("13:14").Value = 6
End Sub

Patrick Molloy
Microsoft Excel MVP
-----Original Message-----
Okay, I can do the following ...

Range(²B1²).value = 1
Range(²B3²).value = 1
Range(²B5²).value = 1
Range(²B7²).value = 1

- is there an easier way to make all those values = 1?