Thanks for your help!!!! It worked perfectly, I appreciate it.


"Wolf" wrote:

How about this:

Sub test
Dim wks As Worksheet
Dim DontCopy1 As Worksheet
Dim DontCopy2 As Worksheet
Dim DontCopy3 As Worksheet
Dim DontCopy4 As Worksheet
Dim CopyRange As Range
Dim DestCell As Range

Set CopyRange = Range("C4:G56")
Set DestCell = Range("D4")
Set DontCopy1 = Sheets("Instructions")
Set DontCopy2 = Sheets("Summary")
Set DontCopy3 = Sheets("Balances")
Set DontCopy4 = Sheets("DataSheet")

Sheets("Sheet1").Select
For Each wks In Worksheets
If wks.Name = DontCopy1.Name Or _
wks.Name = DontCopy2.Name Or _
wks.Name = DontCopy3.Name Or _
wks.Name = DontCopy4.Name Then

Else
wks.Select
Range("C4:G56").Select
Selection.Copy
Range("D4").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1

End If

Next wks

End Sub

after the "or it is <space<underscore

Wolf