Please help explain this code

[moshin123]

Can someone explain what each line of code does? I program in C++ as a living, but i haven't learnt VBA. I learn code by explaining code, so please explain.

sSheet = InputBox( _
Prompt:="Sheet name or number?", _
Title:="Input Sheet")
On Error Resume Next
If Val(sSheet) > 0 Then
Worksheets(Val(sSheet)).Activate
Else
Worksheets(sSheet).Activate
End If

 

[Caleeco]

Hello Moshin,

I assume you are familiar with IF Statements, so I wont explain those. But each line is commented below with what it's doing.

Sub Explain()


sSheet = InputBox(Prompt:="Sheet name or number?", Title:="Input Sheet")
[COLOR=#ff0000]' Pop Up box for user to input a sheet number
' Number entered is stored in variable sSheet[/COLOR]


On Error Resume Next
[COLOR=#ff0000]'If the user enters a sheet number that doesnt exist, ignore error[/COLOR]


If Val(sSheet) > 0 Then
[COLOR=#ff0000]'If the user inputted sheet number is greater than 0[/COLOR]
    Worksheets(Val(sSheet)).Activate
[COLOR=#ff0000]    'Val() returns the first part of the input regonised as a number
    'eg Val("2 or 3") will return '2'
    'Activate the Sheet with that number[/COLOR]
Else
    Worksheets(sSheet).Activate
 [COLOR=#ff0000]   'Activate the Sheet with that number[/COLOR]
End If


End Sub

Hope that helps
Caleeco