Combine click button vba with a function

Hi I would like to combine these to vba together so that when I click the button it performs the first then does the second function.

Sub Button2_Click()
Sheet4.Select
Rows("1:60").EntireRow.Hidden = False
Dim LastRow As Long, c As Range
Application.EnableEvents = False
LastRow = Cells(Cells.Rows.Count, "P").End(xlUp).Row
On Error Resume Next
For Each c In Range("P1:P" & LastRow)
   If c.Value = 0 Then
        c.EntireRow.Hidden = True
    ElseIf c.Value >= 0 Then
        c.EntireRow.Hidden = False
    End If
Next
On Error GoTo 0
Application.EnableEvents = True
End Sub


Function FnOpeneWordDoc()

   Dim objWord

   Dim objDoc

   Set objWord = CreateObject("Word.Application")

   Set objDoc = objWord.Documents.Open("M:Word.doc")

   objWord.Visible = True

End Function

Cheers

Dave

Perfect thank you