This very short macro below creates a userform which can be searched
to find the required contract number.

However when it is "run" an error message appears that "Excel cannot
determine which row contains column labels then it gives you
options:-

if headings are 1st row press OK - "this is the case"
or if you selected a subset of cells in error, select a single cell
and try again
or create column text labels (already done)
or for info on labels select help

Any help on removing this error message - there are just four columns
and all are labelled in the first row with text labels



Sub create searchuserform()

' Macro
' Macro recorded 19/05/2010 by Brian


Sheets("ProjectList").Select
Columns("A:D").Select
ActiveSheet.ShowDataForm
End Sub


Any help would be appreciated

Thanks

Brian
Scotland