Need help of getting current month date from start to end!!

[sabhareesh]

Hi,

I have used the below code to get the current month date, but it is filling the date until the last cell i.e. 1 may 2012 to "last row date" something like 3-jan- 4015. Kindly help me to get the current month dates alone in the spread sheet.

Please Login or Register  to view this content.

[Palmetto]

Please Login or Register  to view this content.

[sabhareesh]

Hi Palmetto,

Thanks for your reply

I am facing the issues with the macro wrong number of arguments or invalid property assignment excel macro....when i am using in the other worksheet its working fine

I am using below code in my worksheet
Sub Create_Dates()

Dim i As Long, y As Long, m As Long

y = Year(Date)
m = Month(Date)

Application.ScreenUpdating = False

Sheets.add
ActiveSheet.Name = "Sheet2"
Sheets("Sheet2").Select
'Range("A2").Select
For i = 1 To Application.WorksheetFunction.EOMonth(Date, 0) - Application.WorksheetFunction.EOMonth(Date, -1)
Cells(i, "A") = Format(DateSerial(y, m, i), "mm/dd/yyyy")
Next i

Application.ScreenUpdating = True
Range("A1").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

Range("A1").Value = "Date"
'Range("B1").Value = "Used"
'Range("C1").Value = "Max"
'Range("D1").Value = "Percentage"
Sheets.add
ActiveSheet.Name = "Sheet3"
End Sub

Please advice me anything is missing here