Hi,
I have some code that works fine when added into a module within a workbook.
However, as i want to ensure all users are able to use it i have created an
add-in (xlam). Toolbars created using xml.
When i attempt to execute the macro i receive the message "wrong number of
arguments or inavlid property assignment".
My code is as follows:
Sub fmat
Dim c1 As Range
Dim c2 As Range
Dim lnLastRow As Long

Application.ScreenUpdating = False

With ActiveSheet
Columns("E:E").ColumnWidth = 40
Range("A:A,C:C,F:J,L:L").Delete
..UsedRange
lnLastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row

Set bglc1 = .Range("A1", .Cells(lnLastRow, "A"))
c1.AutoFilter Field:=1, Criteria1:="="
c1.SpecialCells(xlCellTypeVisible).EntireRow.Delet e

Set c2 = .Range("A1", .Cells(lnLastRow, "A"))
c2.AutoFilter Field:=1, Criteria1:="Last Year"
c2.SpecialCells(xlCellTypeVisible).EntireRow.Delet e
..Rows("1:1").Insert Shift:=xlDown
..Range("A1:D1").Value = Array("Last Year", "Account", "Account Name",
"Balance")
..UsedRange
End With

Columns("E:E").Copy
Columns("D:D").PasteSpecial Paste:=xlPasteValues, Operation:=xlSubtract, _
SkipBlanks:=False, Transpose:=False
Range("E:E").Delete
Application.ScreenUpdating = True
End Sub

Not sure if this is your problem, but you are not fully referencing your
assignments.

When using "With ActiveSheet" all references need to be preceded with a
period (.)




--

Regards,
Nigel




"GMC" wrote in message
...
Hi,
I have some code that works fine when added into a module within a
workbook.
However, as i want to ensure all users are able to use it i have created
an
add-in (xlam). Toolbars created using xml.
When i attempt to execute the macro i receive the message "wrong number of
arguments or inavlid property assignment".
My code is as follows:
Sub fmat
Dim c1 As Range
Dim c2 As Range
Dim lnLastRow As Long

Application.ScreenUpdating = False

With ActiveSheet
Columns("E:E").ColumnWidth = 40
Range("A:A,C:C,F:J,L:L").Delete
.UsedRange
lnLastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row

Set bglc1 = .Range("A1", .Cells(lnLastRow, "A"))
c1.AutoFilter Field:=1, Criteria1:="="
c1.SpecialCells(xlCellTypeVisible).EntireRow.Delet e

Set c2 = .Range("A1", .Cells(lnLastRow, "A"))
c2.AutoFilter Field:=1, Criteria1:="Last Year"
c2.SpecialCells(xlCellTypeVisible).EntireRow.Delet e
.Rows("1:1").Insert Shift:=xlDown
.Range("A1:D1").Value = Array("Last Year", "Account", "Account Name",
"Balance")
.UsedRange
End With

Columns("E:E").Copy
Columns("D:D").PasteSpecial Paste:=xlPasteValues, Operation:=xlSubtract, _
SkipBlanks:=False, Transpose:=False
Range("E:E").Delete
Application.ScreenUpdating = True
End Sub