File save count issue

hello everyone, i have a column from a2:a2000
i want to save a file that counts how many cells from a2:a2000 have data
so basically, if A2:A197 have data, i want the file name to be "Dec (15) DB (197).xls
i am using this code but its not counting for some reason

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

anyone have an idea why?
thanks for your help

Originally Posted by Domski

What are you using to populate lnglastrow?

Dom

Hi Dom, im using numbers

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

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

one problem Dom, i like the count to start from A2, not A1

nevermind, i figured it out Dom
thanks