Just be glad you didn't capitalize that macro's name!

jweasl wrote:

aaaaaaaaahhhhhhh

i'm an idiot. while doing a little testing earlier today (hence the problem
TODAY), i recorded a macro in that workbook with the name selection. Thanks
for your help & time, I'll try not to be so stupid next time :-P

"Dave Peterson" wrote:

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


--

Dave Peterson