how to fill cells after using offset

Hi,

in my coding i am in cell "A1" now i used offset to move the cursor to "D1". now i want to fill all the cells from current cell to my previous cell.

can someone please help me.

regards,
vimala

Perhaps

Sub Fill()
Range("A1", Range("A1").Offset(0, 3)).Value = "Test"
End Sub

Alf

Hi,

My code follows as below:

Sub test()

Range("c1").Select

ActiveCell.Offset(0, 3).Select

ActiveCell.Offset(3,0).Select

End Sub

and your coding is filling from A1.... so I cant fix the range for filling.. whenever i moved from one cell to another cell on my sheet it should fill that path in a color.

So in the above coding in first move one color and the second move another color.

please help me on this.

Well still not sure I do understand your problem properly but either this one or the next one?

Sub Fill2()
Range(ActiveCell, ActiveCell.Offset(3, 3)) = "Test"
End Sub

or

Sub Fill3()
Range(ActiveCell, ActiveCell.Offset(0, 3)) = "Test"
Range(ActiveCell, ActiveCell.Offset(3, 0)) = "Test"
End Sub

Alf