Sub IfAndOr_4
Dim k% : k = 3
' This Calc file has only 1 sheet, namely Sheet1.
If (ThisComponent.Sheets.hasByName("Sheet2") _
And ThisComponent.Sheets.getByName("Sheet2").getCellRangeByName("A1").String = "") _
Or (k = 3) _
Then
MsgBox "Hi!"
End If
End Sub
The problem is:
If (ThisComponent.Sheets.hasByName("Sheet2") _
And ThisComponent.Sheets.getByName("Sheet2").getCellRangeByName("A1").String = "")
How can I check and keep the code short as in Sub IfAndOr_4
?