I have this code here. But when I run it then the only thing I can right in the inputbox is numbers. But I want to write letters in the inputbox. What is wrong with the code?? :?
Please someone help me.
Sub letter() ' ' Titel. Dim Title As String Title = "Write letter here" Dim Message As String Message = "What is the letter?" _ & vbCrLf _ Dim nat As Long nat = Application.InputBox _ (Message, Title, default, Type:=1) Application.ScreenUpdating = False With Ark1 .Cells(2, 4) = nat End With Application.ScreenUpdating = True End Sub