Boa noite!!

Veja em...
http://br.answers.yahoo.com/question/in ... 713AABhHpS

Tem uma opção além de formulas...
Baixe no link
http://www.sendspace.com/file/va54n8

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 And Target.Column = 1 Then
        Application.EnableEvents = False
        Target.Value = Format(Target.Value, "@@@@-@@@")
        Application.EnableEvents = True
    End If
End Sub

Obs:Não Uso Excel 2003
Att

Boa noite!!

Talvez esse ultimo exemplo deva ser melhor para você tentar adaptar já que eu não uso excel 2003

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A2:A99")) Is Nothing Then
    Dim sNum As String
    
    With Target
        sNum = Left(.Value, 4)
        If Len(.Value) = 7 And IsNumeric(sNum) Then
            .Value = sNum & "-" & Right(.Value, 3)
        End If
    End With
 End If
End Sub

Orbrigado Alexandre!

Caso Encerrado!

Aprendiz

Boa noite!!

Caos s dicas foram uteis click na mãozinha!!

Att