Macro to launch data form when table doesn't start at A1

Question

Hi,

My data is formatted as an Excel table and the table starts at A5. All I am trying to do is show the built-in Excel form

When I run the following macro I get this error.

Run-time error 1004 ShowDataForm Method of Worksheet class failed

Sub DataForm()
ActiveSheet.ShowDataForm
End Sub

Your help is greatly appreciated.

Thanks,

Ather

Answer 1

According to search results (https://www.bing.com/search?q=ShowDataForm+error+1004), try this:

Sub DataForm()
   ActiveSheet.Range("A5").CurrentRegion.Name = "database"
   ActiveSheet.ShowDataForm
End Sub