That compiles for me... I assume you do not have a problem with references? I
assume that this is a compile issue and not a runtime issue?
--
HTH...

Jim Thomlinson


"jweasl" wrote:

Sub FabGutterCutLength_bid()
'
' FabGutterCutLength_bid Macro
' Macro recorded 12/8/2005 by Jeremy
'

'
Application.ScreenUpdating = False
Range("B12").Select
selection.Copy
Sheets("Quote Worksheet").Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Fab Gutters").Select
ActiveCell.Offset(44, 9).Range("A1").Select
Application.CutCopyMode = False
selection.Copy
Sheets("Quote Worksheet").Select
ActiveCell.Offset(0, 1).Range("A1").Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(17, 1).Range("A1").Select
Sheets("Fab Gutters").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Application.CutCopyMode = False
selection.Copy
Sheets("Quote Worksheet").Select
ActiveCell.Offset(-17, 0).Range("A1").Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Fab Gutters").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Application.CutCopyMode = False
selection.Copy
Sheets("Quote Worksheet").Select
ActiveCell.Offset(0, 8).Range("A1").Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, -10).Range("A1").Select
Sheets("Fab Gutters").Select
Range("B6").Select
Application.ScreenUpdating = True
End Sub