A Little More Advanced Range Fill-In
did you have the error before my changes? I don't get the error with Excel
2003. Can you post your entire code?
"Derek Hart" wrote:
I get the error:
"Compile Error: For Each control variable must be Variant or Object"
How would I correct this code?
Derek
"Joel" wrote in message
...
Sub test()
myKey = Key()
For Each cell In ActiveSheet.Selection
If Cells(1, cell.Column) = "Key" Then
cell.Value = myKey
End If
Next cell
End Sub
"Derek Hart" wrote:
I have this function:
myKey = Key()
Selection.Value = myKey
If the user highlights a range, a specific value is filled into every
single
cell highlighted. I want to do this a little better. If the user
highlights several rows and columns, I want the myKey to only fill in if
the
column header (Row 1 value) is "Key" - is this possible in VBA?
|