Try:

Sub DriveSerial()

Dim fs As Object
Dim d As Object

Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName _
(fs.GetAbsolutePathName(ThisWorkbook.Path)))
MsgBox d.SerialNumber

End Sub

Hope this helps
Rowan

"Paul Ramirez" wrote:

How can I obtain the serial number of a drive that a spreadsheet is
installed on from within the same EXCEL spreadsheet?