Thread: Compile error:
View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default here's the whole code

Selection is usually capitalized by the VBE (not selection (with the lower case
s)).

Is there a chance you used "selection" as a variable name somewhere in your
code? Maybe as a public variable in one of the other modules????



jweasl wrote:

and I don't know anything about references :-(

"Jim Thomlinson" wrote:

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


--

Dave Peterson