I have found various solutions to the above question but need to elaborate
I am entering date in to two cells , "Dashboard B6 and C6
I have created the following macro (AddSheetWithNameCheckIfExists) that applies the following,
Creates a new WS with the title of B6, lets call it 'Andy Pandy'
'Andy Pandy' then has 'freeze panes, and a command button generated, as required
Further to this, I also need to paste B6 and C6 to another sheet, lets call this 'Legend', to the next blank cell in a column , lets say column 'T'
Firstly what is the required instruction to paste to another sheet, column 'T', next blank cell,
and secondly, how do I integrate it with the following macro
Dim ws As Worksheet
Dim newSheetName As String
newSheetName = Sheets("DASHBOARD").Range("B6")
For Each ws In Worksheets
If ws.Name = newSheetName Or newSheetName = "" Or IsNumeric(newSheetName) Then
MsgBox "Sheet already exists or name is invalid", vbInformation
.Name = newSheetName
ActiveWindow.FreezePanes = True
ActiveSheet.Buttons.Add(30, 21, 72, 72).Select
Selection.OnAction = "hidescorecard"
Selection.Characters.Text = "Close ScoreCards"
With Selection.Characters(Start:=1, Length:=16).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
ActiveWindow.SelectedSheets.Visible = False
Been scratching my head on this one
Looking for help