not sure from your question if this is what you want or not

Sub SerialNumber()
Dim oFSO As Object
Dim drive As Object

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set drive = oFSO.GetDrive("S:\")
Worksheets("Sheet1").Range("A1").Value = "'" & drive.SerialNumber

Set oFSO = Nothing
Set drive = Nothing
'release memory

End Sub

--


Gary


"Blair" wrote in message
...
Hello, I am trying to run the following code to return the serial number of
the hard drive i.e. a unique identifier . is it possible to amend this code
to return the serial number as a value in a particular excel cell?

Thanks very much for your help

Sub SerialNumber()
Dim oFSO As Object
Dim drive As Object

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set drive = oFSO.GetDrive("C:\")
MsgBox drive.SerialNumber

Set oFSO = Nothing
Set drive = Nothing
'release memory

End Sub