Insert new row with formula using ShowDataForm

[Tanya]

I am trying to create a macro to create a DataForm on a named range and all
the research I have seen simply confuses me more. Could anyone help me
please?

This is my code at the moment:

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

'Named range is called "Mechanic" and I've tried refering to the named range
but the range itself refers to cells A10:H11

Worksheets("Sheet1").Range("A10:H11").Select
ActiveSheet.ShowDataForm
End Sub

 

[Tanya]

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