input box

[Trevor3007]

hi,

i need to create a input box so when the user puts the text into, it will place the text in d1 on sheet 2

I am able to do the above only on sheet 1 . Can anyone help?

KR
Trevor3007

 

[Trevor3007]

So, is that what the other code is?
Did you see the issues I pointed out with that code, and the suggestions Kenneth and I made?

Hi joe,

I think I have sorted . Using the following:-

Sub renametab()
'
' renametab Macro
Dim myValue As Variant
Dim ws As Worksheet


'Sheet3 is sheets code name DO NOT CHANGE
Set ws = Sheet3

Do
'show inputbox
myValue = InputBox("Enter New Name", "Enter Tab Name")
'cancel pressed
If StrPtr(myValue) = 0 Then Exit Sub
'loop until tab name entered
Loop Until Len(myValue) > 0

'change to proper case
myValue = Application.WorksheetFunction.Proper(myValue)

'update sheet
With ws
'add name to cell
.Range("D1").Value = myValue
'change tab name
.Name = CStr(myValue) & "-data"
End With

End Sub


many thanks again for your help & Ken too BTW