Macro not iterating through each sheet

[djedidiahw007]

I can seem to figure out why my code is not iterating through each worksheet in the workbook.

Hopefully someone can help me out here.

Sub CopytoWord()

Dim WordApp As Word.Application
Dim DocLoc As String
Dim LastRow As Long
Dim ws As Worksheet

  
   ' Begin the loop.
   
       
       
    For Each ws In ActiveWorkbook.Worksheets
    
        LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
        ws.Range("A1:F" & LastRow).Copy
        DocLoc = Range("G2").Value
        Set WordApp = CreateObject("word.application")
        WordApp.Documents.Open DocLoc
        WordApp.Visible = True
        WordApp.ActiveDocument.Activate
        WordApp.Application.Selection.MoveDown unit:=wdLine, Count:=1000
        
        With WordApp.Selection
            .PasteExcelTable LinkedToExcel:=False, WordFormatting:=True, RTF:=True
        End With
        
        WordApp.ActiveDocument.Close SaveChanges:=wdSaveChanges
        WordApp.Application.Quit
    
            
    Next ws
        
        
End Sub

 

[Legacy 143009]

Try "ThisWorkbook.Worksheets".
If you want to loop through active workbook only, just "Worksheets" will be enough.

 

[djedidiahw007]

Try "ThisWorkbook.Worksheets".
If you want to loop through active workbook only, just "Worksheets" will be enough.

I tried "ThisWorkbook.Worksheet" but it is still not looping through the worksheets

 

[Legacy 143009]

Have you tried this:

For Each ws In Worksheets

 

[djedidiahw007]

Have you tried this:

For Each ws In Worksheets

still doesnt work

 

[MARK858]

Probably you need a ws. in front of

Range("G2").Value

 

[djedidiahw007]

Probably you need a ws. in front of

Range("G2").Value

Thanks! This worked!

 

[MARK858]

You're welcome