Thank you for the help! On May 15, 1:53 am, bala <bal...@gmail.com> wrote: > hi > your code process all the sheets listed in list box, check if > List22.Selected (x) = true then selected value & do the process > > Private Sub CommandButton1_Click() > Dim Lst As String > Dim x As Long > For x = 0 To ListBox1.ListCount - 1 > If ListBox1.Selected(x) = True Then > Lst = ListBox1.List(x) > Select Case Worksheets(Lst).Visible > > Case Is = xlSheetVisible > Worksheets(Lst).Cells.Copy > Workbooks.Add > Selection.PasteSpecial Paste:=xlValues > Selection.PasteSpecial Paste:=xlFormats > End Select > End If > Next > Unload Me > > End Sub > > regards > Bala
--~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
