Shouldn't this fire when values are pasted onto the sheet? That is a
change event correct?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
With Range("A2:A1000").Font
.Name = "Arial"
.Size = 8
End With
End If
End Sub

Thanks,
-- Dan

It should if events are enabled.

You sure you didn't turn them off and forget to turn them back on.

You could turn them on in the VBE's immediate window.
type this and hit enter:

application.enableevents = true

Then test it.

I'd even add a line before the "if" statement.

msgbox "made it"

just for testing.

"Dan R." wrote:

Shouldn't this fire when values are pasted onto the sheet? That is a
change event correct?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
With Range("A2:A1000").Font
.Name = "Arial"
.Size = 8
End With
End If
End Sub

Thanks,
-- Dan

--

Dave Peterson

Yup, that's what it was, thanks Dave.

-- Dan