No VBAProject, em EstaPasta_de_trabalho:
Private Sub Workbook_Open()
m = Month(Now())
ws = Application.WorksheetFunction.Choose(m, "jan", "fev", "mar", "abr", "mai", "jun", "jul", _
"ago", "set", "out", "nov", "dez")
Sheets(ws).Activate
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 07/10/2011 8:01 am