JE provided you with the same procedure I would recommend. You may
also want want to incorporate a cleaner to get rid of any invalid
characters in A1. Something like:
Function cleanName(ByVal txtString As String)
invalidChrArray = Array(":", "/", "*", "\", "?")
For y = LBound(invalidChrArray) To UBound(invalidChrArray)
txtString = Replace(txtString, invalidChrArray(y), "", 1)
Next y
cleanName = txtString
End Function

Then you can clean Range A1 like cleanName(Range("A1").Text)
Tom wrote:
Hopefully an easy one, but I can't seem to do it.

How can I name my sheets with in a workbook to pick up a cell, i.e sheet 1
is call the same as cell A1.

Thanks