Hello,

I've got a very quick question!

I've got the following code, (working perfectly):
Dim Yr as Long
Yr = Application.InputBox("Please enter the CURRENT Year (Format: YYYY)", "Year", Year(Date) + 1, Type:=1)
   Worksheets.Add().name = "MySheet"
   Sheets("MySheet").Select
   ActiveSheet.name = "testsheet_" & Right(Yr, 2)
The codes works very well and generates the sheet correctly..

Now what I want to do is... instead of having a box asking you to enter the current year, I want the macro to automatically take the year from the system date.

Im sure it doesnt require a big change in the code..(at least I think so!)

Any help would be appreciated!
Thanks