Hello experts

The below code aids me to add a new sheet and named according to the text in 
cell A1. What I request Ȋ̝̊̅§ to modify this code to always pick the last item 
in the row. For instance row 1 has ABX and row A2 has BCD it shd pick BCD as 
the sheet name if there Ȋ̝̊̅§ a text in say row A3 GCB when I run the code it 
should pick that name. 


Sub AddSheet() 
    Dim strName As String 
     
    strName = Sheets(1).Range("A1") 
    Sheets.Add After:=Sheets(Sheets.Count) 
    ActiveSheet.Name = strName 
End Sub 
Sent from my BlackBerry® smartphone from Airtel Ghana

-- 
Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to 
[email protected].
Visit this group at http://groups.google.com/group/excel-macros?hl=en.


Reply via email to