Detect OS Type

Used to detect if OS Type is Windows or macOS

Sub GetOSType()

 'Get the OS that I am running from

 Dim OSType As String

 OSType = Application.OperatingSystem

 If OSType Like "*Windows*" Then

 OSType = "Windows"

 Else

 If OSType Like "*Macintosh*" Then

 OSType = "macOS"

 End If

 End If

 'Message box of the detected OS

 MsgBox OSType

End Sub