title: convert function to a sub routine excel vba
body: <p>I have a function like below.I need to convert it to a subroutine.Or is there any way to call this function from inside a subroutine? </p>
  
  <pre><code>'function to calculate nth specific last day of a month like  last saturday or last monday   
  
  Function LastDayOfMonth(Which_Day As String, Which_Date As String) As Date
  
      Dim i As Integer
      Dim iDay As Integer
      Dim iDaysInMonth As Integer
      Dim FullDateNew As Date
  
      Which_Date = CDate(Which_Date)
  
      Select Case UCase(Which_Day)
          Case "SUN"
              iDay = 1
          Case "MON"
              iDay = 2
          Case "TUE"
              iDay = 3
          Case "WED"
              iDay = 4
          Case "THU"
              iDay = 5
          Case "FRI"
              iDay = 6
          Case "SAT"
              iDay = 7
      End Select
  
      iDaysInMonth = Day(DateAdd("d", -1,DateSerial(Year(Which_Date),Month(Which_Date)+ 1, 1))) 
      FullDateNew = DateSerial(Year(Which_Date), Month(Which_Date), iDaysInMonth)
  
      For i = 0 To iDaysInMonth
          If Weekday(FullDateNew - i) = iDay Then
             LastDayOfMonth = FullDateNew - i
            Exit For
         End If
      Next i
  End Function
  </code></pre>