D
Dan R.
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
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