on workbook open error

[d0wnt0wn]

Hi Guys I am getting this error when my workbook opens. This started happening when we upgraded our office to 2016

else without if

and it brings me here

If ActiveWorkbook.name = "Roof System.xlsm" Then Range("J1").Formula = "=today()"
Else
Exit Sub
End If

not sure why this is happening... any ideas?... essentially I want this cel left alone unless the workbook is named Roof System.xlsm

 

[Fluff]

Just get rid of the Else & the Exit Sub lines

 

[d0wnt0wn]

now it says end if without block if

 

[V_Malkoti]

What Fluff said (if you don't have any code after if statement). Or, move the statement(s) in then block to a new line.

Reason: IF-THEN has two syntaxes - one line and multiline.

One line IF-THEN (doesn't need END IF keywords)

IF conditions THEN code ELSE code

Multiline IF-THEN (needs END IF keywords to end)

IF conditions THEN
    code
ELSE
    code
END IF

 

[xenou]

These errors can occur because the Ifs/EndIfs are wrong anywhere in the code. As well as Withs/EndWiths and Do/Whiles Loop/Untils or any kind of control block.

You should post the whole code.

Note: and, as noted above, there are two syntaxes, one for single line and one for multiline if statements!! Good catch.

 

[Fluff]

As posted above, remove the End If as well

 

[Norie]

This is nothing to do with the upgrade, try this.

If ActiveWorkbook.name = "Roof System.xlsm" Then Range("J1").Formula = "=today()"

Or this.

If ActiveWorkbook.name = "Roof System.xlsm" Then 
    Range("J1").Formula = "=today()"
Else
    Exit Sub
End If