New Sheet acording to Cell name/value VBA

[phoztek]

Hi all i just wanted a simple help on VBA

I got Sheet1 with a CommandButton and a fill in space lets say A1

I want this button to create a sheet named "Test x" according to whats inserted on A1 either its number or text.

I came up witht this to that allows me to input 1 new sheet with a pre-defined name.

I know that i need to set Range to get the A1 cell info, but how to ?

Private Sub CommandButton1_Click()

Dim AddAsLastWorksheet()

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Test 1"

End Sub