How to ignore the zeros in activating the sheet by name

Hi All,
I have a code to activating Sheet based on value in cell A1

On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Sheets(Range("A1").Value).Activate
End If
On Error GoTo 0

The name of sheets e.g:
-000234
-455789
-000777
I want if we typed "234" still go to sheet "000234".... if type "777" still go to sheet "000777"
is it possible to do with VBA code..? is there another way
*the cell format in A1 is text..

Thanks in advance