Hello again

I have rewritten this code so many times....

If anyone could help I would really appreciate it.

Sub DataForm()
'
'InsertNewMechanic Macro
'Macro recorded 2/03/2007 by T.Duffy

'Named range is called "Mechanic"

Range("Mechanic").Select
ActiveSheet.ShowDataForm
End Sub

Note because I don't want to select entire rows only a group in a list and
add to this below each new entry I figured the form would be the simplest
method, the problem is with "ActiveSheet.ShowDataForm" and an error message

Run-time error '1004'
Method 'Range' of object _ 'Global' failed

All my searches on the internet for an answer have failed to come up with a
definative answer that I can understand.

I am using Excel 2003