Hello All,
Ok - I have read numerous articles about this error, but cannot figure out what the issue is!! It seems simple enough, but I am getting "Else without If" error. Thanks in advance for anyone that can guide me in the right direction.
Private Sub TestKey()
If CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber <> Sheets("Call Stats").Range("F12") Then MsgBox "No"
ElseIf CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber = Sheets("Call Stats").Range("F12") Then MsgBox "Yes"
End If
End Sub
Bookmarks