Copying creates compiling error

[Lollygirlie1]

Good morning,

I wrote some code today and it compiled fine in one xcel workbook. I copied it and set up the macro in a different workbook. Now it's giving me the following error:

Argument not optional

and pointing at my variable to determine the last row used in the tab. What did I do wrong? It's the SAME CODE!

Here is the entire code:

Sub UpdateFinal()
'
' UpdateFinal Macro
' Written 10/5/2006 to update and sort master list
'
Sheets("Master").Select
'Selects Master list
LastRow = ActiveSheet.Cells(65536, 1).End(xlUp).Row
Range("A3", ActiveSheet.Cells(LastRow, 26)).Select
Selection.Delete
'Clears all data from "Master" tab
Sheets("FoHF").Select
LastRow = ActiveSheet.Cells(65536, 1).End(xlUp).Row
Range("A3", ActiveSheet.Cells(LastRow, 26)).Select
Selection.Copy
'Copies current information from "FoHF" tab
Sheets("Master").Select
ActiveSheet.Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
'Pastes to "Master" tab
Sheets("RA").Select
Application.CutCopyMode = False
LastRow = ActiveSheet.Cells(65536, 1).End(xlUp).Row
Range("A3", ActiveSheet.Cells(LastRow, 26)).Select
Selection.Copy
'Copies current information from "RA" tab
Sheets("Master").Select
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
'Pastes to "Master" tab
Sheets("RE").Select
Application.CutCopyMode = False
LastRow = ActiveSheet.Cells(65536, 1).End(xlUp).Row
Range("A3", ActiveSheet.Cells(LastRow, 26)).Select
Selection.Copy
'Copies current information from "RE" tab
Sheets("Master").Select
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
'Pastes to "Master" tab
Sheets("PE").Select
Application.CutCopyMode = False
LastRow = ActiveSheet.Cells(65536, 1).End(xlUp).Row
Range("A3", ActiveSheet.Cells(LastRow, 26)).Select
Selection.Copy
'Copies current information from "PE" tab
Sheets("Master").Select
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
'Pastes to "Master" tab
Rows("3:65536").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Sorts alphabetically by Manager Name
End Sub

HELP!

[sashi]

Hi there,

Argument not optional simply means that you are not passing enough input to your function / sub, kindly refer to below code segment, take care my fren.. :)

  Function TestX(ByVal strName as String, ByVal intAge as Integer)
 
  Msgbox strName & " - " & intAge
 
  End Function
 

Lets refers to the above Function TestX, you need to pass to arguments, which is the Name & Age, hope you get what am trying to say, good luck.

[Lollygirlie1]

Hi there,

Argument not optional simply means that you are not passing enough input to your function / sub, kindly refer to below code segment, take care my fren.. :)

  Function TestX(ByVal strName as String, ByVal intAge as Integer)
 
  Msgbox strName & " - " & intAge
 
  End Function
 

Lets refers to the above Function TestX, you need to pass to arguments, which is the Name & Age, hope you get what am trying to say, good luck.

The problem is that it works for the original workbook, but causes the compiling error for the second workbook. Since the code is the same (hooray for copy paste), I don't know why the second workbook won't compile.

[Lollygirlie1]

The error was in my variable name (lastRow). Apparently, it's been defined somewhere else in the second work book. All I had to do was declare a new long variable (lr) and replace lastRow with it. Thanks for the help