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?