View Single Post
  #3  
Old 16-08-2010, 09:29
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
I haven't tested but this might help too:

Code:
Sub palLoop2()


Dim pal As Palette, i As Variant, myStr As String

    For i = 1 To 20
        If CStr(Len(i)) = 1 Then i = "0" & i
        Palettes(i).Open
    Next i

End Sub
-John
Reply With Quote