Private Sub Worksheet_Activate()


Dim msg As String
Dim result As Integer
Dim x As String
msg = "Would you like to find the next available tag number?"
result = MsgBox(msg, vbYesNo)

If result = vbYes Then
x = Application.InputBox("Enter the part reference ")

Select Case x

    Case x = "35C"
    NextFree = Range("A:A" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
    Range("A" & NextFree).Select

    End Select
Else
Cancel = True

End If



End Sub