Thread: sheetname value
View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.programming
Kari J Keinonen[_2_] Kari J Keinonen[_2_] is offline
external usenet poster
  
Posts: 20
Default sheetname value
Hi!

Try this one!

Sub SheetNameCell()
Dim sName As String
sName = Range("A4").Text
Sheets(1).Select
Sheets(1).Name = sName
End Sub

Regards,
Kari J Keinonen
Reply With QuoteReply With Quote