Name = Format ( DateSerial ( 1 , intSheetCount , 1 ) , " mmm " ) Next intSheetCount End Sub PICK RANDOM ENTRIES FROM A LIST method as shown here : Dim rng ...
確定! 回上一頁