VBA 400 Error

[admiral_pelican]

Hello,

Can someone take a look at this bad boy and tell me why I'm getting a 400 error?

Please assist.

Sub Macro1()
Dim Rang1 As Range
Set Rang1 = Range("A1")
Dim Row1 As Integer
Row1 = ActiveCell.Row
Dim Sumact As Long
Sumact = Appplication.SumIfs(Worksheets("ERM ").Range("G:G"), Worksheets("ERM ").Range("K:K"), "1", Worksheets("ERM ").Range("B:B"), Rang1.Offset(0, Row1))


MsgBox Sumact


End Sub

 

[shg]

Application is misspelled.

Does worksheet ERM actually have a trailing space in the name?

 

[admiral_pelican]

Wow. Can't believe I missed that Application typo.

Yes, ERM tab has a trailing space in it.

The other error I had was I was putting the row offset as a column offset. Between these two fixes it's good now. Thanks!

 

[shg]

You're welcome.