Your code snippet worked fine, except I'm not getting the date from a
cell but from an object. I solved it easily thought so thx for helping
out all of you!

This got me quite a step further into the VBA world :oD

//ladyhawke

Tom Ogilvy skrev:

Dim sh as Worksheet
if year(cell) = 2006 then
set sh = Worksheets(format(cell,"mmm"))
else
set sh = worksheets("Parking")
End if

There is not "TEXT" function in VBA.

However, based on the OP's original response, I don't know if this is
helpful. Perhaps

http://www.rondebruin.nl/copy5.htm

--
Regards,
Tom Ogilvy


"Carim" wrote:

Hi,

Believe you are looking for something like :

If Sheet.Name = Text(month(yourcell),"mmm") then
your code
End If

HTH
Cheers
Carim