Scoops wrote:

But why waste processing time?

Paste this instead (D'oh!):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RndNmbr As String
With Target
Randomize
If .Column = 4 Then
.Offset(0, 1) = LCase(Left(.Offset(0, -1), 1)) &
LCase(Left(.Offset(0, -2), 7))
RndNmbr = Int((999999 - 100000 + 1) * Rnd + 1)
.Offset(0, 2) = LCase(Left(.Offset(0, -1), 1)) &
UCase(Left(.Offset(0, -2), 1))&RndNmbr
End If
End With
End Sub

Regards

Steve