Userform as input box

[pantakos]

Hello all!

There is need (in order to msgbox works in MacOs - Greek charcter issues) , the below code to be transform with userform and not message box

My mind is stuck!

Can you please help?

Sub SheetsFromTemplate()
 Dim ActNm As String
  ActNm = InputBox("Please enter job title")
If ActNm = "" Then
MsgBox ("Input canceled!")
Exit Sub
Else
 ActiveWorkbook.Sheets("JOB").Visible = True
 ActiveWorkbook.Sheets("JOB").Copy _
 After:=ActiveWorkbook.Sheets("WORKHOUSE")
 ActiveSheet.Name = ActNm
 
ActiveWorkbook.Sheets("JOB").Visible = False
End If

End Sub

Thank you !

 

[Wookiee]

I hope Excel for Mac doesn't differ significantly where userforms are concerned, but this was what I did to create a userform which accomplishes what your macro did.

First, create a userform. Add a label, a textbox control (name it tbTemplate), and a command button control (name that cmdGo).

Private Sub cmdGo_Click()

If tbTemplate.Value = "" Then

  MsgBox "You must provide a template name!", vbCritical
  Exit Sub

Else

  With ActiveWorkbook
    
    .Sheets("JOBS").Visible = True
    .Sheets("JOBS").Copy After:=.Sheets("WORKHOUSE")
    ActiveSheet.Name = tbTemplate.Value

  End With

End If

Unload Me

End Sub

 

[pantakos]

I hope Excel for Mac doesn't differ significantly where userforms are concerned, but this was what I did to create a userform which accomplishes what your macro did.

First, create a userform. Add a label, a textbox control (name it tbTemplate), and a command button control (name that cmdGo).

Private Sub cmdGo_Click()

If tbTemplate.Value = "" Then

  MsgBox "You must provide a template name!", vbCritical
  Exit Sub

Else

  With ActiveWorkbook
   
    .Sheets("JOBS").Visible = True
    .Sheets("JOBS").Copy After:=.Sheets("WORKHOUSE")
    ActiveSheet.Name = tbTemplate.Value

  End With

End If

Unload Me

End Sub

Yes! That worked like a charm!

Thank you !

 

[Wookiee]

Yes! That worked like a charm!

Thank you !

I'm so glad to hear it. Would you mind marking my response as the solution?

Thank you!

 

[pantakos]

of course, I am from mobile now, when I am home, I will do it!