Dear Ashish,
Sorry for late response. It works very well. Thank you so much :)
Regards,
Abhishek
On Sat, Jan 25, 2014 at 6:59 PM, ashish koul wrote:
> Sub test()
>
> Dim mailrng As Range
> Dim cl As Range
> Dim fl_path As String
>
>
>
> Set mailrng = Sheets("Master").Range("d
Sub test()
Dim mailrng As Range
Dim cl As Range
Dim fl_path As String
Set mailrng = Sheets("Master").Range("d4:d5")
For Each cl In mailrng
ThisWorkbook.Sheets(cl.Offset(0, -2).Value).Copy
fl_path = "C:\Documents and Settings\Ashish Koul\Desktop\sample
files\"
