having trouble with worksheet loop involving two different workbooks Tech Support

having trouble with worksheet loop involving two different workbooks

Hi,
 
I'm trying to loop [Solved] hardedrive with windows 7 is going bad how do I transfer to new harddrive through one workbook, get all the worksheets with "Data" in thier tabname, and copy past to a new workbook.
 
Can anyone help me with this code please?
 
Windows("S408-S411.xlsm").
_
        Activate
             
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name Like "Data*" Then
        ws.Select
        Range("A19:M39").Select
        Selection.Copy
        Windows("Import Table1.xlsm").Activate
        ' ActiveSheet.Range.End.Select
        ActiveSheet.Paste
        ' With Selection
        '    .HorizontalAlignment = xlCenter
        '   .VerticalAlignment = xlCenter
        '  .Orientation = 0
        ' .AddIndent = False
        '.IndentLevel = 0
        '       .ShrinkToFit = False
        '      .ReadingOrder = xlContext
        '     .MergeCells = False
        ' End With
        Windows("S408-S411.xlsm").Activate
        Next ws
        End If
              
       
End Sub
 
Thanks!

Keys to the Problem having trouble with worksheet loop involving two different workbooks

Instead of using "Like", try the InStr function.  Something like:
 
If (InStr(1,ActiveWorkbook.Worksheets(x).Name,"Data",vbBinaryCompare) > 0) Then
 
HTH,
Eric

Click here to download the [Solved] having trouble setting up my windows email registry repair application

Another Safe way Fuzzy pictures to Repair the problem: having trouble with worksheet loop involving two different workbooks:

Click here uuolohiy0 to [Solved] having trouble setting up my windows email download the registry repair excel sorting help application .

How to Fix having trouble with worksheet loop involving two Error Overlapped I/O is in progress different workbooks with SmartPCFixer?

1. Click the button to download SmartPCFixer . Install it on Every time our excel sheet is go to not responding any click on tools . your system.  Open it, and it will scan Solution to Error: Go from Excel to Word with using a macro? your computer. The errors will be shown in the list.

2. After the scan is finished, you can Solution to Error: Go from Excel to Word with using a macro? see the errors and problems which need to be repaired.

3. When the Fixing part excel hiding worksheets is done, your computer has been speeded up and the errors have been fixed