Hi,

Try this:

Sub test()
Application.DisplayAlerts = False
Range("A1:D1").Select
ActiveSheet.ShowDataForm
Application.DisplayAlerts = True
End Sub

Regards,
KL
"Arishy" wrote in message
oups.com...
I am using VBA to create a new work sheet with heading A1:D1
Select.range("A1:D1") 'as my NEW list

activesheet.showdataform ' to start inputting data

I get this error msg

""microsoft" office cannot determine which row in your list or
selection contains labels"

If I say OK everything is OK

What I should do to prevent excel from giving me this warning msg
I tried "on error...." but still get the msg

Can you help.

PS It happens only with an Empty list !!!!!