hi,
Sub test()
icount = Len(ThisWorkbook.Name)
icount = icount - 4
strtest = Left(ThisWorkbook.Name, icount)
ThisWorkbook.SaveAs (ThisWorkbook.Path \ strtest Format
(Date, dd-mmm-) .xls)
End Sub
with Regards
Bala
On May 27, 5:17 pm, Dhartikumar Sahu dhartiku...@gmail.com wrote:
hi
hi bala
can u suggest me for saving the file
i want to save as file name with current date.
can u give me a VBA Code please
On Wed, May 27, 2009 at 2:13 PM, bala bal...@gmail.com wrote:
Hi,
Try this code
Range(A1).select
while Activecell.value
if len(Activecell.value) 3