Hi Mathias, > Hi! > > In a basic macro i use a simple Select Case statement: > > Option Explicit > Sub Test1 > Dim sDate As String > Dim iNum As Integer > Dim iBreak As Integer > On Error GoTo ErrorHandler > sDate = Date() > iNum = DatePart( "w", sDate, 2 ) > iBreak = 0
> Case Select iNum It seems a typo, change to: Select Case iNum After that, it runs without error: iBreak => 1 HTH (OOo 2.1 pt_BR + XP). --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
