File save count issue

Originally Posted by Domski

What I mean is lnglastrow is a variable name that will not contain a value until you give it one.

This would normally be done like this:

Dim lnglastrow As Long

lnglastrow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

ActiveWorkbook.SaveAs "C:\My Documents\Downloads\" & Format(Date, "mmm") & " (" & _
Format(Date, "dd") & ") DB (" & lnglastrow & ").xls"

You would need to change Sheet1 to the sheet name that contains your list.

Dom

Excellent, working great, you are really good my friend
thanks again