daniroy
12/15/2006 11:29:00 AM
Found it
Sheets("test").Cells(i, j).Value = "test"
Tks
Dan
On Dec 15, 11:12 am, dani...@gmail.com wrote:
> I am trying to fill every column for B to whatever with "test".
> I use following function to define the range. In this case Last_Column
> = 12
>
> Function Last_Column(My_Range As Range) As Long
>
> Last_Column = Application.WorksheetFunction.CountA(My_Range)
>
> End Function
>
> Then I am using the Sub
>
> Sub testa()
>
> For j = 2 To Last_Column(Sheets("test").Rows("1:1"))
>
> Sheets("test").Range(j & "2").Value = "test"
>
> Next j
>
> End Sub
>
> Obvioysly I am not well defining the range. I guess I go wrong on
> Range(j & "2").Value
>
> Sorry to be so dumb/ignorant
> and thanks for the help/merry xmas