You got hit by a linewrap in the newsgroup post:
Option Explicit
Sub Copy_Data()
Dim w As Worksheet
Dim CopytoSheet As Worksheet
Dim Dest As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set CopytoSheet = Worksheets.Add
CopytoSheet.Name = "Copyto"
Set Dest = [A1]
For Each w In ActiveWorkbook.Worksheets
If w.Name = "Copyto" Then GoTo NextSht
With w
.[A5].Copy Dest
.[A10].Copy Dest.Offset(, 1)
.[C3].Copy Dest.Offset(, 2)
.Columns("H:H").Find(What:="Balance", _
LookAt:=xlWhole).Offset(1).Copy Dest.Offset(, 3)
.Range("H" & Rows.Count).End(xlUp).Copy Dest.Offset(, 4)
End With
Set Dest = Dest.Offset(1)
NextSht:
Next w
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Kel wrote:
Hi, getting a syntax error on this part...how do I fix it?
.Columns("H:H").Find(What:="Balance",
LookAt:=xlWhole).Offset(1).Copy Dest.Offset(, 3)
.Range("H" & Rows.Count).End(xlUp).Copy Dest.Offset(, 4)
--
Dave Peterson
|