Notice the placement of the dots in front of .range and .cells
Not quite sure what you want here. As shown, you get 1 in all 15 cells.
Changing the comment to the next to last line gets you only 3 on row 5
Sub doit()
For g = 1 To 5
With Sheets("Input")
Set gml = .Range(.Cells(g, 13), .Cells(g, 15))
gml.Value = 1
End With
Next
'gml.Value = 1
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"cgnotrom" wrote in message
...
Don't know why this code won't work
Trying to define array ("M1:O1") thru ("M5:O5")
and input results to a child sheet
The code below this and before the 'NEXT' statement works fine.
For g = 1 to 5
Set gml = Sheets("Input").Range(cells(g,13),cells(g,15))
next
Anyhelp is appreciated
Chris