You could use something like this, too.

dim iCol as long
with worksheets("somesheethere")
for icol = .range("d1").column to .range("cz1").column
...



lawson wrote:

I guess my first question is, does this work?

for a = d to cz

or do i have to use numbers? the basic idea is to have a program that goes
from column to column along row 1 and look for the value 1. if it finds that
value then it will copy formulas vertically in that column within a certain
range as follows:

Private Sub CommandButton3_Click()

For a = d To z
If Range(a & "1") = 1 Then ''''''''IT CRASHES HERE!
Range(a & Range("by1")).AutoFill Destination:=Range(a & "9:" & a &
Range("by1")), Type:=xlFillValues
End If
Next a

End Sub

probably not the best method anyway...

--

Dave Peterson