Вы можете сделать что-то вроде этого:
Sub test()
Dim skipcode As String
Dim dt As Date
dt = Now
'i'd simplify your set of `if` - this way:
skipcode = IIf(Minute(dt)>28 And Minute(dt)<58, Hour(dt) & "30", Hour(dt) & "00")
'attempting to get the macro to skip to the label
GoTo SkipPoint
' desired skip point
SkipPoint:
Select Case skipcode
Case "900" 'needs double quotes due to type of variable
x = 1
Case "1000"
x = 2
End Select
End Sub
[EDIT]
В соответствии с предложением @Zack, окончательная версия вашей процедуры может выглядеть следующим образом:
Sub test()
Dim skipcode As String
Dim dt As Date
dt = Now
skipcode = IIf(Minute(dt)>28 And Minute(dt)<58, Hour(dt) & "30", Hour(dt) & "00")
Select Case skipcode
Case "900" 'needs double quotes due to type of variable
x = 1
Case "1000"
x = 2
End Select
End Sub