[Solved] Cells selected after selecting active sheet ?

[oonk]

Code: Select all

Option Explicit
'Based on https://forum.openoffice.org/en/forum/viewtopic.php?f=20&t=68059#p303317
Sub ChangeActiveSheet
	Dim oSheet As Object
	oSheet = ThisComponent.Sheets.getByName("Journal")
	ThisComponent.CurrentController.Select(oSheet)
End Sub

Sheet "Journal" shows, but all its cells are selected.
How can I move the cursor to only cell A1 in order to unselect all cells ?

[FJCC]

I think this will get you what you want.

Code: Select all

oSheet = ThisComponent.Sheets.getByName("Journal")
ThisComponent.CurrentController.setActiveSheet(oSheet)

[oonk]

Thank you so much, that is really what I need.