Try this

Option Explicit

Sub Fill01()
    'Worksheets("SINGLE PHASE CONSTRUCTION").Activate
    Dim UserEntry As String
    UserEntry = InputBox("What is the W/O #?", "INPUT W/O")
    Select Case UserEntry
        Case "": Exit Sub
        Case Else: Range("B2").Value = UserEntry
    End Select
End Sub