VBA Code For Open Folder On Current Located File

This vba code for open folder on current located folder

Private Sub CommandButton2_Click()
Dim strFolder As String

strFolder = ThisWorkbook.Path & “\folder\”
ActiveWorkbook.FollowHyperlink Address:=strFolder, NewWindow:=True

End Sub