Do you know how many columns are part of the data table?

Can you pick out a column that always has data if that row is used?

Option Explicit
Sub testme01()
Dim LastRow as long
Application.DisplayAlerts = False
With activesheet
lastrow = .cells(.rows.count,"A").end(xlup).row
.Range("A4:E" & lastRow).Name = "'" & .Name & "'!database"
.ShowDataForm
End With
Application.DisplayAlerts = True
End Sub

I started in A4 (like your code showed) and then used column A to find the last
row used. And went to column E (like your code showed).

By naming the range DataBase, excel's showdataform knew where to look to find
the data.

Jim Cox wrote:

Thanks for the info, but I'm still having a problem. At least I'm headed in
the right direction

Thanks
Jim C
"Dave Peterson" wrote in message
...
Excel _knows_ where to look for the data (and screws up).

Here's an article that explains how the problem occurs in VBA (with
solution)
http://support.microsoft.com/default...;en-us;q110462
XL: ShowDataForm Method Fails If Data Can't Be Found



Jim Cox wrote:

I am trying to active a form from a macro. I used the 'copy' function but
it
fails. It tells me that the ShowDataFrom method failed. The spreadsheet
will
be used my schools in our district to register students for the science
fair. I'm not the proficient in Excel.

Sub InputList()
'
' InputList Macro
' Macro recorded 10/5/2006 by 'Jim C'

'
Sheets("Names").Select
Range("A4:E4").Select
ActiveSheet.ShowDataForm
End Sub

Thanks Jim C

--

Dave Peterson

--

Dave Peterson