Macro not working in Addin
 

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

Macro not working in Addin
 

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