Sub ProjectInfo()
Dim strDescription, strName As String
strName = InputBox("Please enter the PROJECT NAME as you would like it to
appear on all sheets.", "Project Name")
strDescription = InputBox("Please enter the PROJECT DESCRIPTION as you would
like it to appear on all sheets.", "Project Description")

If strName = "" Then GoTo err2
If strDescription = "" Then GoTo err2

Sheet1.Cells(b, 3).Value = strName
Sheet1.Cells(b, 4).Value = strDescription
Exit Sub

err2:
Call MsgBox("You must enter a project name AND description!", vbExclamation,
"Error! Must enter project name AND description")

End Sub


Can anybody tell me why i keep getting an error when i try to run this
script? It says application-defined or object-defined error.


Thanks!!