Try this kishore

Sub Test()
Dim mywkbk As Workbook
Dim myfile As String
Dim wb As Workbook
myfile = "C:\Data\test.xls"
If Dir(myfile) = "" Then
Set wb = Workbooks.Add
wb.SaveAs "C:\Data\test.xls"
wb.Close False
Else
MsgBox "Exist!"
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"kishore" wrote in message oups.com...
Hi,

Just curious to know, is it possible to creat a excel file if it does
not exists in the given folder. Any code to do this???

Thanks in advance,
Kishore