OK, you can use another trick...

CLOSE all
SET DATE BRITISH
SET CENTURY on
thisform.text9.Value=GETFILE('xls')

**************************************************
   declare long ShellExecute in "shell32.dll" ;
	long hwnd, string lpszOp, ;
	string lpszFile, string lpszParams, ;
    string lpszDir, long nShowCmd
ShellExecute(0,'Open',thisform.text9.Value,'','',1)
lihFile=FOPEN(thisform.text9.Value)

DO WHILE lihFile<=0 && yiu can add test to escape key
   WAIT WINDOW 'Please, change tel. number in XLS Sheet and close XLS Sheet' TIME 1
   lihFile=FOPEN(thisform.text9.Value)
ENDDO
=FCLOSE(lihFile)

********************************************************
IMPORT FROM (thisform.text9.value) TYPE xls
*IMPORT FROM (thisform.text2.value) TYPE csv

use JUSTSTEM(thisform.text9.value)
m.t=JUSTSTEM(thisform.text9.value)
USE (m.t)

FOR gnCount = 1 TO FCOUNT( )
   m.OldName =  FIELD(gnCount)
   m.NewName = ALLTRIM(EVALUATE(FIELD(gnCount)))


   *******************************************************
   ALTER TABLE (m.t) RENAME COLUMN (m.OldName) TO (m.NewName)
  * ALTER TABLE (thisform.text2.value) RENAME COLUMN (m.OldName) TO (m.NewName)
NEXT
=MESSAGEBX("DON")
*BROWSE

>thank you,
>Why you don't use OLE? becuse the user need to do that, and telno maybe
>('C1')or('C2')or('C3')...,
>i know you can tel the user to rename the filed out of vfp code or form,
>
>but i fetch for vfp code if it is possible ,
>
>this is the code
>

>CLOSE all
>SET DATE BRITISH
>SET CENTURY on
>thisform.text9.Value=GETFILE('xls')
>
>**************************************************
>   declare long ShellExecute in "shell32.dll" ;
>	long hwnd, string lpszOp, ;
>	string lpszFile, string lpszParams, ;
>    string lpszDir, long nShowCmd
>ShellExecute(0,'Open',thisform.text9.Value,'','',1)
>
>
>********************************************************
>IMPORT FROM (thisform.text9.value) TYPE xls
>*IMPORT FROM (thisform.text2.value) TYPE csv
>
>use JUSTSTEM(thisform.text9.value)
>m.t=JUSTSTEM(thisform.text9.value)
>USE (m.t)
>
>FOR gnCount = 1 TO FCOUNT( )
>   m.OldName =  FIELD(gnCount)
>   m.NewName = ALLTRIM(EVALUATE(FIELD(gnCount)))
>
>
>   *******************************************************
>   ALTER TABLE (m.t) RENAME COLUMN (m.OldName) TO (m.NewName)
>  * ALTER TABLE (thisform.text2.value) RENAME COLUMN (m.OldName) TO (m.NewName)
>NEXT
>=MESSAGEBOX("DON")
>*BROWSE
>
>

>thanks.
>
>>Mohammed,